[_Thierry]

Bonjour ZZR, Farid, le Forum

Rapidos en VBA :

Sub NumSemainePartDate()
Dim TheDay As Date
TheDay = 38515 'demain le 12/06/2005 un dimanche

MsgBox DatePart('WW', TheDay, vbMonday, vbFirstFourDays)
End Sub

Bonne Journée
[ol]@+Thierry[/ol]