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
Code:
an = 2009
ns = 2
MsgBox Application.Date(an, 1, -2)-WEEKDAY(DATE(an,1,3))+7*ns
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