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.
Comment le généraliser pour avoir toutes les semaines de l’année ?
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 '-----------------------------------
Merci.
Partager