Bonjour à tous,

J'aimerais déterminer les dates du début et fin des semaines de l'année en cours.

Les semaines commencent par Mercredi er finissent par Mardi.

Voila un code pour déterminer une semaine.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
'-----------------------------------
    date_debut = Date - Application.Choose(Application.Weekday(Date, 1), 4, 5, 6, 0, 1, 2, 3)
    date_fin = date_debut + 6
    MsgBox "DateBegin :" & date_debut & ", DateEnd : " & date_fin
'-----------------------------------
Comment le généraliser pour avoir toutes les semaines de l’année ?

Merci.