salut,
c'est pas une fonction directe mais un calcul:


semaine=DateDiff("w",DateSerial(Year(Date),1,1),Date)


un (+1) pourra etre necessaire, à toi de tester ;)