Bonjour,
Dans le module de la feuille :
Private Sub DTPicker1_Change()
Dim d, dref, i%, s%
d = CDate(DTPicker1.Value)
d = d - Weekday(d) + 2
For i = 1 To 7
Me.Cells(5, i * 2 - 1) = d + i - 1
Next i
dref = DateSerial(Year(d), 1, 3)
dref = dref - Weekday(dref) + 2
If dref > d Then
dref = DateSerial(Year(d) - 1, 1, 3)
dref = dref - Weekday(dref) + 2
End If
s = Int((d - dref) / 7) + 1
Me.Cells(2, 2) = s
End Sub
NB- Numéro de semaine calculé selon la norme européenne ISO 8601.
Cordialement
Ferrand