enregistrer avec date et heure du jour
Le
bernard
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
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
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
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" news:43547ef1$0$987$