Macro : Enregistrer un fichier avec la date en variable

Essaie ce code :

Sub Macro1()

Nomfichier = Left(Date, 2) & Mid(Date, 4, 2) & Right(Date, 4)
ActiveWorkbook.SaveAs Filename:="C:" & Nomfichier & ".xls"
End Sub


ST

"JM Esnault" <JM Esnault@discussions.microsoft.com> a écrit dans le message
de news:3A0AF4E2-6E00-45D1-8CC6-3C81BBC87FE8@microsoft.com...

Bonjour

Je souhaite créer une macro qui incluerait la date courante dans le nom du
fichier
cible.

Je n'ai que peu d'expérience en programmation. Si quelqu'un peut
m'éclairer

ça m'aiderait.

Merci d'avance
Jean-Manuel

Bonjour Jean Manuel

Par exemple (à adapter) avec ceci :

Private Sub Workbook_BeforeClose
DateTime = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
Nom_Svg = "C:totoSauvegarde du " & DateTime & ".xls"
oldStatusBar = Application.DisplayStatusBar
Application.StatusBar = "Une copie de sauvegarde est créée..."
ActiveWorkbook.SaveCopyAs Filename:=Nom_Svg
Application.StatusBar = False

Proc à inclure dans le ThisWorkBook

Bonjour

Je souhaite créer une macro qui incluerait la date courante dans le nom du
fichier
cible.

Je n'ai que peu d'expérience en programmation. Si quelqu'un peut m'éclairer
ça m'aiderait.

Merci d'avance
Jean-Manuel

Bonjour Jean_Manuel

Comme ceci, peut-être
En adaptant les variables
'----------
sub jj()
disk = "d:"
chemin = "ici_le_nom_des_eventuels_dossier"
fich = ActiveWorkbook.Name
nom = disk & chemin & fich & "_" & Date
MsgBox nom '''' pour teste du nom(a supprimer)
ActiveWorkbook.SaveAs nom
End Sub

'--------
Salutations
JJ

"JM Esnault" <JM Esnault@discussions.microsoft.com> a écrit dans le message
de news:3A0AF4E2-6E00-45D1-8CC6-3C81BBC87FE8@microsoft.com...

Bonjour

Je souhaite créer une macro qui incluerait la date courante dans le nom du
fichier
cible.

Je n'ai que peu d'expérience en programmation. Si quelqu'un peut
m'éclairer

ça m'aiderait.

Merci d'avance
Jean-Manuel

Bonjour Jean_Manuel


Plutôt
En adaptant les variables
'----------
sub jj()
disk = "d:"
chemin = "ici_le_nom_des_eventuels_doss­ier"
fich = ActiveWorkbook.Name
nom = disk & chemin & fich & Format(Date, "_dd-mm-yy")
MsgBox nom '''' pour teste du nom(a supprimer)
ActiveWorkbook.SaveAs nom

End Sub


'--------
Salutations
JJ



"JM Esnault" <JM Esnault@discussions.microsoft.com> a écrit dans le message
de news:3A0AF4E2-6E00-45D1-8CC6-3C81BBC87FE8@microsoft.com...

Bonjour

Je souhaite créer une macro qui incluerait la date courante dans le nom du
fichier
cible.

Je n'ai que peu d'expérience en programmation. Si quelqu'un peut
m'éclairer

ça m'aiderait.

Merci d'avance
Jean-Manuel