enregistrer avec date et heure du jour

Bonjour

Private Sub Workbook_BeforeClose(Cancel As Boolean)
NousSommesLe = Date
'Remplace les / par rien
NousSommesLe = Replace(NousSommesLe, "/", "")
IlEst = Time
'Remplace les : par rien
IlEst = Replace(IlEst, ":", "")
'Enleve les secondes
IlEst = Left(IlEst, 4)
'Definit le nom du fichier
NomFichier = "ABC" & NousSommesLe & IlEst

ActiveWorkbook.SaveAs NomFichier
End Sub

Bonjour à tous,
ma question est simple comment enregistrer de façon automatique ( code à
placer dans this workbook) un fichier xl avec la date et l'heure
d'enregistrement dans le nom du fichier.

exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement
automatique: ABC181005658.xls(ABC & 18/10/05 6:58)
d'avance merci
et bonne journée
BS

bonjour bernard
un truc dans ce genre peut-être :

ThisWorkbook.SaveCopyAs "C:LeRepertoireQuiVaBien" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & Format(Now(), "dd mm
yyyy") & ".xls"

attention : sur une seule ligne (ou ligne à couper avec espace _)
jps

"bernard" <bernard.sauvage2@wanadoo.fr> a écrit dans le message de
news:43547ef1$0$987$8fcfb975@news.wanadoo.fr...

Bonjour à tous,
ma question est simple comment enregistrer de façon automatique ( code à
placer dans this workbook) un fichier xl avec la date et l'heure
d'enregistrement dans le nom du fichier.

exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement
automatique: ABC181005658.xls(ABC & 18/10/05 6:58)
d'avance merci
et bonne journée
BS