Buscar Ficheros

"sata" escribió en el mensaje news:

Hola a todos:
Mi problema es el siguiente:

Necesito que al abrir un libro, haga una copia del mismo (eso ya lo he
conseguido), pero el tema es, que ahora necesito que cuando vuelva a abrir el
libro me busque ese archivo y si existe, me guarde el libro con otro nombre
para que no lo sobreescriba... ¿Alguien me puede ayudar?

Gracias por adelantado

Sata

La siguiente instrucción guardará el libro desde el que se ejecute con el nombre Copia y añadirá la fecha y hora en el formato AAAAMMDDHHMMSS si existe el libro C:uta\NombreLibro.xls:

If Dir("C:uta\NombreLibro.xls") <> "" Then ThisWorkbook.SaveAs "C:uta\Copia" & Format(Now(), "yyyymmddhhmmss")

Un saludo.


Fernando Arroyo
MS MVP - Excel

Muchas gracias Fernando, es una buena solución, intentare ajustar ese codigo.
El tema es:
Que haciendo eso que me dices, la pagina activa que se queda, es
precisamente la copia y eso es lo que quiero evitar, que se pueda ver
precisamente que se ha hecho una copia para recuperar.
Con el sistema: ActiveWorkbook.SaveCopyAs "C:\Windows\copia(1).XLS"
se hace la copia y no se modifica el libro de la otra manera, la copia se ha
modificado y se han borrado (que es lo que se pretende) datos, pero esos
datos, tienen que estar borrados en el original, no en la copia.
Yo estoy mirando la ayuda para usar "FileExist", pero chico, soy incapaz, de
todas maneras soy muy novato, pero muy terco, así que al final, lo pillaré.

Gracias otra vez y un cordial saludo

"Fernando Arroyo" escribió:

"sata" escribió en el mensaje news:
> Hola a todos:
> Mi problema es el siguiente:
>
> Necesito que al abrir un libro, haga una copia del mismo (eso ya lo he
> conseguido), pero el tema es, que ahora necesito que cuando vuelva a abrir el
> libro me busque ese archivo y si existe, me guarde el libro con otro nombre
> para que no lo sobreescriba... ¿Alguien me puede ayudar?
>
> Gracias por adelantado
>
> Sata

La siguiente instrucción guardará el libro desde el que se ejecute con el nombre Copia y añadirá la fecha y hora en el formato AAAAMMDDHHMMSS si existe el libro C:uta\NombreLibro.xls:

If Dir("C:uta\NombreLibro.xls") <> "" Then ThisWorkbook.SaveAs "C:uta\Copia" & Format(Now(), "yyyymmddhhmmss")

Un saludo.


Fernando Arroyo
MS MVP - Excel