Nombrar archivos con fecha y nombre

Muy buenas!, tengo una macro que me guarda una serie de archivos. Necesitaría que esos archivos me los guardase con la fecha correspondiente y con el nombre del archivo detrás (Por ejemplo 11-06-02-archivo1).
¿Se puede?.
Gracias de antemano y un saludo.

1 respuesta

Respuesta
1
A ver si te sirve algo así:
Sub Macro1()
Dim nombre
Dim archivo
archivo = ActiveWorkbook.Name
nombre = ActiveWorkbook.Path & "\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & " - " & archivo
ActiveWorkbook.SaveAs FileName:=nombre, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
Un saludo,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas