Bonjour,
Effectivement c’est LA solution 
Il m’a suffit de copier/coller la macro ci-dessous pour que ça fonctionne :
Si ça peut servir à quelqu’un d’autre
Sub creer()
Dim b As String, c As String, d As String
b = ActiveWorkbook.Path
c = ActiveWorkbook.Name
d = b & "" & Format(FileDateTime(b & "" & c), « YYYY-MM-DD ») & " " & c
ActiveWorkbook.Close
Name b & "" & c As d
Workbooks.Open (d)
End Sub
Merci encore et bonne journée.
Francois