Excel VBA - Un botón para guardar una copia del archivo actual

Problema

Estoy buscando una manera de incluir un botón de registro automático en una hoja de cálculo de Excel. Este botón guardaría automáticamente una copia de la hoja actual en un directorio dado agregando al nombre del archivo original la fecha y la hora, por ejemplo, "my_file_24102007_0830.xls"

Solución

 Public Sub CommandButton1_Click () Dim nom As String nom = Day (Date) & "-" & Month (Date) & "-" & Year (Date) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\ "& nom rep = MsgBox (" Su base de datos se ha guardado: "& name, vbYes + vbInformation, " Copia de la hoja de cálculo ") End Sub 

Gracias a gbinforme por este consejo.