Insérer automatiquement la date dans le nom de fichier au moment de l'enregistrement
1 réponse
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...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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... ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
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." <dam-mail2004@ifrance.com> a écrit dans le message de
news:Oq3XSueiEHA.644@tk2msftngp13.phx.gbl...
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...
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
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... ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯