Bonsoir,
Je souhaite pouvoir transformer une date en semaine avec le format Saass. J'ai trouvé le code ci-dessous qui fonctionne mais qui donne des infos éronées pour certaines années . ex : Pour le 01/01/11 il s'affiche S1152 ald S1052. Pouvez-vous m'indiquer le code qui permet de tenir compte des semaines à cheval sur 2 années ou des années à 53 semaines ?

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
MichaSarah