Bonjour,

Je récupère mes dates de cette manière :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
RefJour = WeekDay(date, 2)
if RefJour = 1 then
Lundi = Date
else
Lundi = Date
do while RefJour <> 1
Lundi = DateAdd("d", -1, Lundi)
RefJour = WeekDay(Lundi, 2)
Loop
end if
 
dim calendrier(10)
 
For i = 0 to 6
LeJour = DateAdd("d", i, Lundi)
calendrier(i) =  WeekDayName(WeekDay(LeJour)) & " " & Day(LeJour) & " " & MonthName(Month(LeJour))
Next
J'obtiens ainsi dans mon tableau calendrier, des dates au format :

lundi 11 janvier

mardi 12 janvier

mercredi 13 janvier

etc. ...

J'aimerai aussi, les récupérer au format de type :

11/01/2010

12/01/2010

13/01/2010

etc. ...

Merci d'avance pour votre aide,

Denis