Discussion :

[lololefada]

Voila, le titre dis tout!!!
Je m'enmelle les pinceaux depuis un moment, pourtant ca doit etre simple...
J'ai en entree le numero de la semaine (2,3,... Calendar week), et je voudrais donner le premier et dernier jour ouvrale correspondant...
J'avoue que je sais pas trop quoi faire (Date? DatePicker?)

Donner moi juste des indices, je veux pas vous ennuyer avec des trucs debiles comme ca...

Merci!

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function LundiSemaine(ByVal Semaine As Integer, ByVal Annee As Integer) As Date
 
    LundiSemaine = CDate("1/1/" & Format$(Annee))
    If Weekday(LundiSemaine, vbMonday) < 5 Then Semaine = Semaine - 1
    LundiSemaine = DateAdd("ww", Semaine, LundiSemaine)
    LundiSemaine = DateAdd("d", 1 - Weekday(LundiSemaine, vbMonday), LundiSemaine)
 
End Function

[lololefada]

Bidou, je ne peut que dire: FABULOUS!
J'ai reussi a faire la meme pour le vendredi Quel inteligent je fais!

Merci 1000 fois!

[bidou]

J'ai reussi a faire la meme pour le vendredi Quel inteligent je fais!