Bonjour,

Je n'arrive pas à trouver le code pour renvoyer le numéro de la semaine du lundi.

La formule est :

Le lundi 30 décembre 2019 fait partie de la semaine 1 2020, c'est correct.
=TEXTE(DX19;"mmmm aaaa") &" "& "Sem."&NO.SEMAINE(DX19;21) (avec le 21 pour la norme ISO Euro)

Mais en VBA ????
Le code ci-dessous affiche pour le lundi 30 décembre 2019 la semaine 53 2019, ce qui n'est pas correct.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox Format(ActiveCell, "ww", vbMonday)
Help ...

Merci pour vos lumières
Philippe