Salut Ywben, Yo, le Forum
En VBA on peut faire ceci, qui peut être lancé depuis une macro évènementielle par exemple...
Sub NumWeekSystemUS()
Dim Semaine As Date
Semaine = Format(Now, "WW", , vbFirstFullWeek)
MsgBox Format(Semaine, "00")
End Sub
...Qui retournera 28 aujourd'hui
Sub NumWeekSystemFR()
Dim Semaine As Date
Semaine = Format(Date, "WW", , vbFirstJan1)
MsgBox "Numéro de semaine : " & Format(Semaine, "00")
End Sub
...Qui retournera 29 aujourd'hui
Bonne 29em semaine de l'année à tous et à toutes !
@+Thierry