Code Pour Afficher N° Semaine dans TextBox

[MuscatMimi]

Bonjour a tous le Forum

Je cherche le code ,afin de pouvoir afficher auto, le N° de la Semaine
dans une TextBox a l'ouverture de l'Usf

Merci a tous a l'avance
Cordialement

RESOLU,voici le Code
Private Sub UserForm_Initialize()
Dim sem As Date
sem = Format(Date, "WW", , vbFirstJan1)
UserForm2.Label1.Caption = "Semaine " & Format(sem, "00")
End Sub

 

[Gorfael]

Re : Code Pour Afficher N° Semaine dans TextBox

]Salut vaucluse immo et le forum
autre proposition

Private Sub UserForm_Initialize()
UserForm2.Label1.Caption = "Semaine " & DatePart("WW", Date, vbUseSystemDayOfWeek, vbFirstJan1)
End Sub

A+