Guardar como con variable fecha

La instrucción para generar el nombre del libro a guardar es la siguiente:

<strong style="line-height: 1.5em;">nbreLibro = "DETALLE DIARIO " & Format(Date - 1, "dd.mm.yy")

Luego tendrías un 'guardar como ' o 'guardar copia como', donde además le tendrás que indicar la carpeta y la extensión.

Por ej:, si dejaras una copia en la misma carpeta y con extensión 'para macros', sería así:

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & nbreLibro & ".xlsm"

Gracias Elsa :

Finalmente la rutina quedo asi:

Nombre = "DETALLE DIARIO al " & Format(Date - 1, "dd.mm.yy")
nombrearchivo = "D:/Carpeta_Prueba/" & Nombre
Application.ActiveWorkbook.SaveAs Filename:="D:\Carpeta_Prueba\" & Nombre & ".xlsm", FileFormat:=xlText, CreateBackup:=False

Me queda una duda la línea: <strong style="line-height: 1.5em;"> me generaba error. Cuál era su función dentro de la rutina?

Gracias!

Alberto

Nada. Es un problema que he visto con frecuencia tanto en consultas como en respuestas... problemas del foro, sucede cuando se copia y pega un texto... pero no se observa mientra uno lo está redactando o copiando... recién se vé luego de enviar ... habría que comentarlo en el blog de los Administradores.

Lamento si eso te produjo algún inconveniente en la lectura de la respuesta.

Estimada Elsa:
Gracias por tu aclaración.
Un detalle, el día de hoy ejecutando la rutina he notado que me identifica el archivo como lo quiero pero cuando voy a cerrar la ventana (el libro), me pregunta si deseo guardar los cambios yo le doy guardar, pero me sale la siguiente ventana en donde me dice que el archivo puede tener características no compatibles.
Si yo le doy SI y luego lo quiero aperturar no lo permite.
Si le doy NO me apertura la ventana de Guardar como y doy clic en guardar y me pregunta si deseo reemplazarlo
yo le doy SI y me pregunta si deseo guardarlo como libro macro o libro normal
le doy SI y recién puedo aperturarlo... Por qué se está dando eso?
Luego la Hoja1 la identifica como DETALLE DIARIO al .... No deseo que la identifique me podrás por favor ayudar? Te adjunto al rutina
Private Sub CommandButton1_Click()
Nombre = "DETALLE DIARIO al " & Format(Date - 1, "dd.mm.yy")
nombrearchivo = "D:DIARIO_VENTAS/" & Nombre
Application.ActiveWorkbook.SaveAs Filename:="D:\DIARIO_VENTAS\" & Nombre & ".xlsx", FileFormat:=xlText, CreateBackup:=False
End Sub
Desde ya agradezco tu ayuda
Alberto