Bonjour,
J'essaye de trouver un code qui me premettrait de trouver en fonction d'un n° de semaine :
L'intervalle en date 1er - Dernier jour de cette semaine

En cherchant dans les forums j'ai trouvé le code ci dessous qui me permets de faire l'inverse, à partir d'un date trouver le n° de semaine. Mais je n'arrive pas à résoudre mon pb. Pouvez-vous m'apporter des conseils pour aboutir ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Cmd2_Click()
Annee = DatePart("yyyy", TxtDate1)
NumSem = DatePart("ww", TxtDate1, 2, 3)
TxtSemaine = "S" & Right(Annee, 2) & NumSem
End Sub

Merci par avance
MichaSarah