Bonjour,
Merci pour ce script. Je l'ai adapté à mes besoins qui étaient d'avoir la date de tous les jours avec un numero de semaine égal à numero de semaine en cours + 1 :
Function GetWorkWeekDisplay(dtmDate,jour)
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmTuesday = DateAdd("d",2,dtmDate)
dtmWednesday = DateAdd("d",3,dtmDate)
dtmThursday = DateAdd("d",4,dtmDate)
dtmFriday = DateAdd("d",5,dtmDate)
dtmSaturday = DateAdd("d",6,dtmDate)
dtmSunday = DateAdd("d",7,dtmDate)
Elseif intDay = 2 Then
dtmMonday = DateAdd("d",0,dtmDate)
dtmTuesday = DateAdd("d",1,dtmDate)
dtmWednesday = DateAdd("d",2,dtmDate)
dtmThursday = DateAdd("d",3,dtmDate)
dtmFriday = DateAdd("d",4,dtmDate)
dtmSaturday = DateAdd("d",5,dtmDate)
dtmSunday = DateAdd("d",6,dtmDate)
Elseif intDay = 3 Then
dtmMonday = DateAdd("d",-1,dtmDate)
dtmTuesday = DateAdd("d",0,dtmDate)
dtmWednesday = DateAdd("d",1,dtmDate)
dtmThursday = DateAdd("d",2,dtmDate)
dtmFriday = DateAdd("d",3,dtmDate)
dtmSaturday = DateAdd("d",4,dtmDate)
dtmSunday = DateAdd("d",5,dtmDate)
Elseif intDay = 4 Then
dtmMonday = DateAdd("d",-2,dtmDate)
dtmTuesday = DateAdd("d",-1,dtmDate)
dtmWednesday = DateAdd("d",0,dtmDate)
dtmThursday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",2,dtmDate)
dtmSaturday = DateAdd("d",3,dtmDate)
dtmSunday = DateAdd("d",4,dtmDate)
Elseif intDay = 5 Then
dtmMonday = DateAdd("d",-3,dtmDate)
dtmTuesday = DateAdd("d",-2,dtmDate)
dtmWednesday = DateAdd("d",-1,dtmDate)
dtmThursday = DateAdd("d",0,dtmDate)
dtmFriday = DateAdd("d",1,dtmDate)
dtmSaturday = DateAdd("d",2,dtmDate)
dtmSunday = DateAdd("d",3,dtmDate)
Elseif intDay = 6 Then
dtmMonday = DateAdd("d",-4,dtmDate)
dtmTuesday = DateAdd("d",-3,dtmDate)
dtmWednesday = DateAdd("d",-2,dtmDate)
dtmThursday = DateAdd("d",-1,dtmDate)
dtmFriday = DateAdd("d",0,dtmDate)
dtmSaturday = DateAdd("d",1,dtmDate)
dtmSunday = DateAdd("d",2,dtmDate)
Elseif intDay = 7 Then
dtmMonday = DateAdd("d",-5,dtmDate)
dtmTuesday = DateAdd("d",-4,dtmDate)
dtmWednesday = DateAdd("d",-3,dtmDate)
dtmThursday = DateAdd("d",-2,dtmDate)
dtmFriday = DateAdd("d",-1,dtmDate)
dtmSaturday = DateAdd("d",0,dtmDate)
dtmSunday = DateAdd("d",1,dtmDate)
End If
if jour = 0 then GetworkweekDisplay = dtmSunday
if jour = 1 then GetworkweekDisplay = dtmMonday
if jour = 2 then GetworkweekDisplay = dtmTuesday
if jour = 3 then GetworkweekDisplay = dtmWednesday
if jour = 4 then GetworkweekDisplay = dtmThursday
if jour = 5 then GetworkweekDisplay = dtmFriday
if jour = 6 then GetworkweekDisplay = dtmSaturday
End Function
for i=1 to 7
Select Case i
Case 1
jour = "Lundi " & GetworkweekDisplay((Date+7),1)
Case 2
jour = "Mardi " & GetworkweekDisplay((Date+7),2)
Case 3
jour = "Mercredi " & GetworkweekDisplay((Date+7),3)
Case 4
jour = "Jeudi " & GetworkweekDisplay((Date+7),4)
Case 5
jour = "Vendredi " & GetworkweekDisplay((Date+7),5)
Case 6
jour = "Samedi " & GetworkweekDisplay((Date+7),6)
Case 7
jour = "Dimanche " & GetworkweekDisplay((Date+7),0)
End Select