Bonjour,

Pour un planing j'ai besoin d'avoir la liste des dates début et fin pour chaque semaine d'un mois.
Exemple pour le mois 12/2009 je dois avoir

01/12/2009 06/12/2009
07/12/2009 13/12/2009
14/12/2009 20/12/2009
21/12/2009 27/12/2009
28/12/2009 31/12/2009

Mon analyse me guide vers definir la date debut et fin du mois
avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
FisrtDate = DateSerial(Year(Now), Month(Now), 1)
        LasteDate = DateAdd("d", -1, DateSerial(Year(Now), Month(Now) + 1, 1))
 
For i As Integer = 1 To LasteDate.Day '31 pour le mois déc
 
 
 
 
        Next



Je sais pas si quelu'un a une idee

Merci d'avance