Salut le forum, salut jcc
comme ça vient, vite fait, un exemple de code parmi d'autres possibles :
toto = Range("A1").Value
mois = Choose(Month(toto), "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "décembre")
toto1 = Day(toto) & mois & Year(toto)
ActiveWorkbook.SaveAs Filename:=toto1
Cathy