Una Macro que guarde en archivo en la carpeta origen pero también en otro lugar como respaldo

Me gustaría que me pudieras ayudar con lo siguiente. Yo tengo una macro cualquiera pero al final necesito que antes de cerrarse la macro, ponerle una instrucción de que ese libro se guarde automáticamente en la carpeta origen del archivo. Listo creo si mal no estoy que solo con decirle al final ActiveWorkbook. Save con eso es suficiente.

Pero quisiera que de igual manera guarde también ese archivo en otro ubicación diferente con el fin de que si alguien de maldad me borrara el archivo de la carpeta original ya sea a propósito o por error, yo sepa que puedo ir a la otra ubicación y recuperarlo.

La carpeta origen es documentos y la carpeta de respaldo es dropbox

1 respuesta

Respuesta
1

H o l a:

Quedaría de la siguiente forma:

'Por. Dante Amor
    ActiveWorkbook. Save
    ruta = "C:\Documents and Settings\DAMOR\Mis documentos\Dropbox\"
    arch = ActiveWorkbook.Name
    ActiveWorkbook. SaveCopyAs ruta & arch

Cambia la ruta por la carpeta en donde quieras el respaldo.

Dante una ultima duda, si yo la ejecuto una vez listo me hace eso que quiero, pero si no cierro el libro y sigo trabajando en él y vuelvo a ejecutar la macro vuelve y me graba nuevamente en la carpeta origen y en la de respaldo? lo digo es por que cuando uno graba un archivo en otro carpeta diferente en excel, esa luego se convierte como si fuera en origen.

Pero con esta instrucción: ActiveWorkbook. SaveCopyAs, no sucede como comentas. Primero se guarda con ActiveWorkbook. Save y luego te crea una copia. Cada que lo ejecutes te guarda y luego te crea un nuevo archivo, la carpeta origen nunca cambia.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas