formule converti N° de semaine en date vba

[nina71287]

Bonjour,

Est ce quelqu'un sait pourquoi ma formule est fausse, il n'accepte pas "annee"

Function numSem(D)
'norme iso
numSem = DatePart("ww", D, vbMonday, vbFirstFourDays)
End Function

sub trouver_date()
D=inputbox("donnez une date")
annee=datepart("yyyy",aujourd'hui)
lundisem=7*numsem+DATE(annee,1,1)-WEEKDAY(DATE(annee,1,3)-3
end sub



Merci pour votre aide🙂

 

[ROGER2327]

Re : formule converti N° de semaine en date vba

Bonjour nina71287

[COLOR="DarkSlateGray"]Sub trouver_date()
Dim D, annee, lundisem
   D = InputBox("donnez une date")
   annee = DatePart("yyyy", Now())
   lundisem = 7 * numSem(D) + DateSerial(annee, 1, 1) - Weekday(DateSerial(annee, 1, 3)) - 3
End Sub[/COLOR]

peut-être ?​

ROGER2327

 

[nina71287]

Re : formule converti N° de semaine en date vba

Merci ca marche très bien 🙂