salut'Jean-Luc'
bonsoir le Fil
voilà ce que j'ai modifié afin que le textbox affiche le N° de semaine
Private Sub UserForm_Initialize()
txtDate = DatePart('ww', Date, 2, 2)
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
txtDate.Value = DatePart('ww', DateClicked, 2, 2)
End Sub
Amicalement
Jean Marie