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