date du lundi du N°semaine

[youky(BJ)]

Bonjour à tous,
Je bataille pour retrouver la date du lundi selon mon N° semaine.
J'ai trouvé sur le forum la bonne formule mais je souhaite cela en macro
Bon pour l'instant .....bug
Même application.Date(2009,1,1) ne fonctionne pas
Je passe à coté de quoi.....
Merci

an = 2009
ns = 2
MsgBox Application.Date(an, 1, -2)-WEEKDAY(DATE(an,1,3))+7*ns

 

[Guest]

Re : date du lundi du N°semaine

Bonjour Youki,

De la faqExcel de developpez.com:

Sub Test()
Dim An As Integer, ns As Integer, NumJour As Integer
 
An = 2009
ns = 2
NumJour = 0 ' 0=Lundi, 1=Mardi ...
 
MsgBox Evaluate("TEXT(DATE(" & An & ",1,3)-WEEKDAY(DATE(" & An & _
    ",1,3))-5+(7*" & ns & ")+" & NumJour & ",""dd/mm/yyyy"")")
End Sub

A+

 

[youky(BJ)]

Re : date du lundi du N°semaine

Merci Hasco,
Impeccable, ben mon google ne m'a pas mené là.....
J'aurai pas trouvé seul et voici une bonne façon d'utiliser Evaluate.
A+ sur le forum