Opérations sur les dates (différence)

Bonjour,

Dans la réalisation de ma première macro, je souhaite à un moment, créér autant de feuilles de calcul que j'ai de mois de mesure.
Je m'exxplique: si dans ma feuille de mesures, ma mesure commence le 10 mai et s'arrete le 20 septembre de la même année, je souhaite ouvrir 5 feuilles qui correspondront aux mois de mai-juin-...-septembre.
J'utilise la fonction DateDiff mais j'arrive à 4 mois au lieu de 5. Comment procéder?
Pour l'instant, comme je suis complètement novice en VBA, j'ai procédé comme ceci:

Code:

---

1 2 3 4 5 6 7 8

Sub zone_test() Dim date1 As Date Dim date2 As Date date1 = InputBox("Indiquez le mois et l'année du début d'acquisition sous la forme MM/AAAA") date2 = InputBox("Indiquez le mois et l'année de fin d'acquisition sous la forme MM/AAAA") MsgBox DateDiff("m", date1, date2)   End Sub

---

J'ai fait cette bidouille. Ca marche mais au point de vue "beauté", je ne sais pas si c'est top :lol:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub zone_test() Dim date1 As Date Dim date2 As Date Dim dureeacq As Long date1 = InputBox("Indiquez le mois et l'année du début d'acquisition sous la forme MM/AAAA") date2 = InputBox("Indiquez le mois et l'année de fin d'acquisition sous la forme MM/AAAA") dureeacq = DateDiff("m", date1, date2) + 1 MsgBox ("La durée d'acquisition est de " & dureeacq & " mois ")   End Sub

---