remplacer nom de fichier par la date du jour

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