OVH Cloud OVH Cloud

Insérer automatiquement la date dans le nom de fichier au moment de l'enregistrement

1 réponse
Avatar
géjoun.
Bonjour,

J'ai recherché sur Excelabo et dans les archives comment insérer la date
dans le nom du fichier au moment de 'l'enregistrer sous', et je n'ia ps
trouvé qulque chose qui me convienne.

Sachant que je travaille à partir de gabarits nommés 'CDE - Masque.xls' ou
'PLANNING - Masque.xls'; comment faire pour que lorsque je souhaite
enregistrer mon fichier en faisant 'enregistrer sous', la date du jour
s'insère automatiquement pour donner 'CDE 24.08.04 - xxxxxxxx.xls' ou
'PLANNING 24.08.04 - xxxxxxxx.xls'?

Merci!

--
__________________________
Géjoun.
dam-mail2004@ifrance.com
····················································
Enlevez l'année pour répondre...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

1 réponse

Avatar
gilbert
Bonjour

Cela te convient-il

Sub sauvemoi()
chemin = "C:Documents and Settings"
nom_du_fichier = InputBox("Inscrivez le Nom du Fichier", "Nom du
Fichier", "CDE")
ActiveWorkbook.SaveAs Filename:= _
chemin & nom_du_fichier & Format(Now, "dd_mm_yyyy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

Gilbert

"géjoun." a écrit dans le message de
news:
Bonjour,

J'ai recherché sur Excelabo et dans les archives comment insérer la date
dans le nom du fichier au moment de 'l'enregistrer sous', et je n'ia ps
trouvé qulque chose qui me convienne.

Sachant que je travaille à partir de gabarits nommés 'CDE - Masque.xls' ou
'PLANNING - Masque.xls'; comment faire pour que lorsque je souhaite
enregistrer mon fichier en faisant 'enregistrer sous', la date du jour
s'insère automatiquement pour donner 'CDE 24.08.04 - xxxxxxxx.xls' ou
'PLANNING 24.08.04 - xxxxxxxx.xls'?

Merci!

--
__________________________
Géjoun.

····················································
Enlevez l'année pour répondre...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯