Macro que al guardar copie ese archivo
Buenas tardes.
Necesito una macro que cuando se le de al guardar del excel, me haga una copia de ese mismo archivo en el mismo directorio que el original o en otro que yo le indique.
¿Sería posible? He estado buscando, pero no he encontrado nada.
Un saludo y gracias por adelantado.
Necesito una macro que cuando se le de al guardar del excel, me haga una copia de ese mismo archivo en el mismo directorio que el original o en otro que yo le indique.
¿Sería posible? He estado buscando, pero no he encontrado nada.
Un saludo y gracias por adelantado.
1 Respuesta
Respuesta de paramisolo
1
Esta macro te pide el nombre al guardar el libro el directorio va en la macro la pones a tu gusto y listo:
Sub Auto_Close()
NombreArchivo = InputBox("¡Escriba el nombre del Archivo", "Guardar Libro", 1)
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\" + NombreArchivo + " .xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Al cerrar el librote pedirá el nombre y el directorio lo pones tú en la macro yo te he dejado la unidad C:\
>Un saludo
>Julio
Sub Auto_Close()
NombreArchivo = InputBox("¡Escriba el nombre del Archivo", "Guardar Libro", 1)
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\" + NombreArchivo + " .xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Al cerrar el librote pedirá el nombre y el directorio lo pones tú en la macro yo te he dejado la unidad C:\
>Un saludo
>Julio
