Trouver une date d'après un N° de semaine et une année

[lezinve]

Bonjour tout le monde,

Je cherche un code me permettant de trouver une date (jj/mm/aaaa), à savoir le lundi et le dimanche suivant, d'après un numéro de semaine et une année donnée.

C'est pour utiliser avec Excel.

Merci d'avance.

LeZinve.

[SilkyRoad]

bonsoir

Tu peux tester cette procédure pour afficher le lundi correspondant au numéro de semaine spécifié:

Code :

1
2
3
4
5
6
7
8
Dim Annee As Integer, Semaine As Integer, NumJour As Integer
 
Annee = 2007
Semaine = 25
NumJour = 0 ' 0=Lundi, 1=Mardi ...
 
MsgBox Evaluate("TEXT(DATE(" & Annee & ",1,3)-WEEKDAY(DATE(" & Annee & _
    ",1,3))-5+(7*" & Semaine & ")+" & NumJour & ",""dd/mm/yyyy"")")

michel

[Carlutchi]

Bonjour,

Il y a un autre moyen que le MsgBox pour calculer la valeur ?
J'arrive pas à extraire le code pour alimenter par exemple une cellule dans une feuille excel.

Merci