Con macro al guardar archivo añadirle al nombre la fecha del dia

[5luis]

Buenas tardes, necesitaría terminar una macro que al guardarla, me añadiese al nombre la fecha del día :

en vez de = Factura.xls

Seria así = Factura"=HOY()".xls

O así = Factura"Fecha actual".xls

Un saludo

[Link7606]

Lo que debes de hacer es crear tu la fecha (dd/mm/aaaa), divide la fecha por secciones (dd = día) y por medio de variables puedes "concatenar" o crear la fecha en el nombre del archivo.

Espero te ayude mi respuesta, saludos..

[Armando Montes]

Un ejemplo:

Sub Save()

Dim dtDate As Date

dtDate = Date

Dim strFile As String

strFile = "X:\file" & Format(dtDate, "mm-dd-yyyy") & ".xlsm"

ActiveWorkbook.SaveAs Filename:=strFile, FileFormat _

    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub[/CODE]

Tu consulta anterior esta inconclusa.

[5luis]

Buenos días y gracias por responder.

No me ha servido o no he sabido usar lo que me has mandado. Uso una macro en excel para guardar selección en formato Word que me funciona perfecto pero necesito que después del nombre me salga la fecha, la MACRO que uso es:

Sub Excel_Word_FALCATA()

On Error Resume Next

Dim Wordapn As Object

'el archivo Word se guarda en la misma ruta que el archivo Excel

Ruta = ThisWorkbook.Path

'copiar rango, en este caso supone que todos los datos desde A1 pueden ser seleccionados y copiados

'si no, determinar el rango a copiar

Selection.Copy

'crear nueva aplicación Word

Set Wordapn = CreateObject("Word.Application")

'nombre del archivo word, puede hacer referencia a una celda u otro dato

n_archivo = "mi_doc_word"

With Wordapn

.Visible = True

.Activate

End With

'crear nuevo documento Word

Wordapn.Documents.Add

'pegar celdas Excel

Wordapn.Selection.Paste

'guardar como

Wordapn.ActiveDocument.SaveAs "G:\Pedido FALCATA.doc"

'liberar el objeto Word

Set Wordapn = Nothing

End Sub

Gracias