Sub Renommehdbur()
Dim AncienNom$, NouveauNom$, MaDate
MaDate = InputBox("Entrez une date", "Date", Date)
AncienNom = "D:\test\phil.xls"
NouveauNom = Format(MaDate, """D:\test\""dd_mm_yyyy""_phil.xls""")
'Renomme le fichier
MsgBox NouveauNom 'pour tester la chaine renvoyée
'Name AncienNom As NouveauNom
End Sub