remplacer nom de fichier par la date du jour

[philmaure]

bonjour à tous,
j'ai un fichier qui se nomme Adhérence à chaud. Je souhaite lorsque je l'enregistre en fin de journée que le fichier soit nommé à la date du jour.
Ci dessous ma macro actuelle :

Sub Ferme1()
'Workbooks("Adhérence à chaud.xls").Close savechanges:=True
ChDir "P:\STAT\Partage\Suivi\Archives"
Workbooks("Adhérence à chaud.xls").SaveAs Filename:="P:\STAT\Partage\Suivi\Archives\Adhérence à chaud.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

Merci pour votre solution
Cdlt
Philippe

 

[Pierrot93]

Re : remplacer nom de fichier par la date du jour

Bonjour,

essaye peut être ceci :

Workbooks("Adhérence à chaud.xls").SaveAs Filename:="P:\STAT\Partage\Suivi\Archives\Adhérence à chaud " _
    & Format(Date, "ddmmyyyy"), FileFormat:=xlNormal

bonne journée
@+

 

[philmaure]

Re : remplacer nom de fichier par la date du jour

Super, la solution fonctionne comme je le souhaitais.
un grand merci et bonne journée
Cdlt
Philippe