Sub Creation_doc_mois()
Année = InputBox("Saisir l'année sous la forme aaaa")
Mois = InputBox("Saisir le mois à créer sous la forme mm")
Jours = DateAdd("m", 1, DateSerial(Année, Mois, 1)) - DateSerial(Année, Mois, 1)
With ActiveDocument
For i = 1 To Jours
ActiveDocument.Bookmarks(1).Range.Text = Format(DateSerial(Année, Mois, i), "dd/mm/yyyy")
ActiveDocument.Bookmarks(2).Range.Text = Format(DateSerial(Année, Mois, i + 1), "dd/mm/yyyy")
ActiveDocument.SaveAs FileName:=ThisDocument.Path & "\" & Format(DateSerial(Année, Mois, i), "yymmdd") & "_Modèle_" & Format(DateSerial(Année, Mois, i), "ddmmyyyy") & ".doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
Next i
End With
End Sub