Sub Creation_classeur_nommé()
Workbooks.Open Filename:="F:\Data\Feuilles de garde\Versailles\essai3.xls"
DateDeSaisie = Range("a1")
If Dir(Activeworkbook.Path & "\" & Format(DateDeSaisie,"mmmmyyyy"), vbDirectory) = "" Then mkDir Activeworkbook.Path & "\" & Format(DateDeSaisie,"mmmmyyyy")
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Format(DateDeSaisie,"mmmmyyyy") & "\" & Format(DateDeSaisie, "ddmmmmyyyy") & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub