Fonction Weeknum

Boujour à tous,

La fonction weeknum (NUM.SEMAINE) en anglais, fonctionne bien dans le classeur

mais pas dans les macros.

Elle ne figure pas dans la bibliothèque vba. Comment l'activer ?

Merci pour toute aide.

Bonsoir

Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :

Public Function NoSem(UneDate As Date) As Integer 
   On Error Resume Next 
   NoSem = CInt(Format(UneDate, "ww", vbMonday, vbFirstFourDays))
End Function

Cordialement

Amadéus