Impression datée

Function NombreDeJoursDansMois(MaDate As Date)
' Cette fonction permet de calculer le nombre de jour dans une mois (soit le nombre d'impression à réaliser)
    NombreDeJoursDansMois = Day(DateSerial(Year(DateAdd("m", 1, MaDate)), Month(DateAdd("m", 1, MaDate)), 1) - 1)
End Function

Sub Imprimer()
Dim MaDate As Date
Dim x As Integer

Application.ScreenUpdating = False

'Remplacer les B3 par les coordonnées de la cellule contenant la date dans le document
'Par defaut mettre le 1er jour du mois en question dans la cellule ex : 1/5/17
MaDate = Range("B3")
x = NombreDeJoursDansMois(MaDate)

'impression du document en date du 1er du mois
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

'boucle qui incrémente la date de 1 et lance l'impression
For i = 1 To x - 1
'Remplacer les B3 par les coordonnées de la cellule contenant la date
Range("B3") = Range("B3") + 1
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Next

End Sub