Foro Excel

Saludos a todos, quiero ver quien me podria ayudar con esta macro que guardo el archivo y realizo una copia, cuando pongo format (date) funciona bien pero cuando le pongo format (date & time) me sale error. Necesito que el nombre del archivo sea la fecha y hora ó el nombre sea consecutivo porque tenemos 3 turnos y necesitamos que al finalizar cada turno y cierran el archivo quede su copia.

Esta es la macro que utilizo

Sub Auto_Close()
'
'Macro Guardar y Respaldo
'
' Directorio de Respaldo
'Date & " " & Time
Application.DisplayAlerts = False
Ruta = "C:\CopiaDiaria"
nonfic = Format(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
'Directorio de Original
Ruta = "C:\Documents and Settings\PRUEBAS MACROS"
nonfic = "Corresp06.xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
ThisWorkbook.Close True 'cierra y guadra los cambios sin la alerta
Application.DisplayAlerts = True
End Sub


Gracias de Antemano

tal vez algo asi:

Código: Seleccionar todo

Sub Auto_Close()
'
'Macro Guardar y Respaldo
'
' Directorio de Respaldo
'Date & " " & Time
Application.DisplayAlerts = False
Ruta = "C:\CopiaDiaria"
nonfic = Format(Now, "dd-mm-yyyy hh.mm") & ".xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
'Directorio de Original
Ruta = "C:\Documents and Settings\PRUEBAS MACROS"
nonfic = "Corresp06.xls"
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nonfic
ThisWorkbook.Close True 'cierra y guadra los cambios sin la alerta
Application.DisplayAlerts = True
End Sub

KL Gracias Quedo Lista GRACIAS POR TU AYUDA !!!