Bonjour Regis,Dan,
Da,, désolé de te contredire mais no.semaine est faux car non ISO, mais aux normes américaines:
il te suffit de tester sur 1/1/1989 jusqu'à 1/1/2006 pour voir que c'est toujours la mém réponse !!!
La bonne formule (de Laurent LONGRE, MVP Excel) est celle ci:
Option Explicit
Function NoSem(D As Date) As Long 'Laurent Longre
' fonctionne suivant la norme ISO contrairement à no.semaine()
D = Int(D)
NoSem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \\ 7 + 1
End Function
Patrick