Guardar vía macro con nombre=hora del sistema

Para redactar la macro se necesitan algunos datos con precisión:

- Versión Excel (x el tema de la extensi´n)

- Cuál es el nombre o de dónde se lo toma o si se trata del mismo nombre

-Si se guardará en la misma carpeta que el libro activo o en otra, y en ese caso dónde se indica esa información (en la misma macro o se toma de alguna celda).

Quedo a la espera de tus aclaraciones para continuar.

Buenos días.

Te contesto tus preguntas.

- Office 2007 SP3

- El nombre del fichero original es DEUSTO.xlsx y del fichero final DEUSTO-hhmmss.csv

- Se guarda en la misma carpeta que el libro activo

Gracias.

Bien, ¿veo qué se tiene que guardar como .csv y no como excel?

Entrá al Editor de macros (con Alt y F11), insertá un módulo y allí copiá esto:

Sub guardar_con_fecha()
'x Elsamatilde
'guarda el libro con otro nombre y extensión en la misma carpeta
Dim nbre As String
Dim librox As String
nbre = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
librox = nbre & "-" & Format(Now, "hhmmss") & ".csv"
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & librox
End Sub

Al nombre le quito la extensión porque ahora es xlsx pero con la macro tendrás que guardarlo como 'xlsm'. Y además porque la extensión no irá en el nombre del nuevo libro.

La instrucción SaveCopyAs guarda una copia pero no se sale del libro actual, por lo que no hace falta volverlo a llamar.

Buenas tardes, Elsa.

Creo que faltaría el paso 2 del mail inicial:

- Cierre el fichero generado de manera automática via macro y vuelva a abrir el fichero con los datos que tenia antes de la modificación de la macro.

Añadiendo tu macro (gracias) a lo que ya tenia hecho, falta cerrar el .csv resultante y dejar el .xlsx original sin modificación alguna.

Gracias de nuevo.