Macro para copiar una hoja excel a 2 subcarpetas.

"JBS" escribió en el mensaje news:

Hola. Buenas tardes.

Necesitaria crear una macro en excel para que al ejecutarla copiase la hoja
actual en otras 2 subcarpetas con nombres diferentes (tendria que preguntar
ambos 2 nombres y permitir reemplazar).

gracias por leerme.


Jose

Mira si te sirve esto:

Sub prueba()
ThisWorkbook.SaveAs Application.GetSaveAsFilename("C:\Carpeta1", "Libros de Excel (*.xls), *.xls")
ThisWorkbook.SaveAs Application.GetSaveAsFilename("C:\Carpeta2", "Libros de Excel (*.xls), *.xls")
End Sub

Si no quieres que aparezca la advertencia de seguridad cuando se va a "machacar" un archivo existente, pon la instrucción

Application.DisplayAlerts = False

como primera instrucción del Sub, y

Application.DisplayAlerts = True

como última.


En el código, tendrás que sustituir Carpeta1 y Carpeta2 por los nombres reales de los directorios.
Un saludo.


Fernando Arroyo
MS MVP - Excel