VBA Numero Semaine

Bonjour tout le monde.

Je viens juste de m'inscrire car j'ai attrapé le "virus" VBA.

Symptômes : Cerveau qui fume, yeux qui piquent vers 5 h du matin, surdité (quand le conjoint dit "a table") , irritabilité , bouche pâteuse après avoir fumé quarante clopes en moins de deux heures (les fumeurs me comprendront!) . Liste non exhaustive.

Cela dit, j'ai cherché un peu partout sur le web une fonction vba qui m'afficherait le numero de semaine (NO.SEMAINE()) sous excel, et il semble que cela ne soit pas possible sauf en passant par des solutions très compliquées.

Je vous livre donc ce que j'ai fini par pondre sur une seule ligne.

ActiveCell= Application.WorksheetFunction.WeekNum(Now())

Si ça peut aider quelqu'un.....

Bonjour et bienvenue

ben14 a écrit :

une fonction vba qui m'afficherait le numero de semaine (NO.SEMAINE()) sous excel, et il semble que cela ne soit pas possible

Si c'est possible avec DatePart !

DatePart("ww", Date, 2, 2)

Amicalement

Nad

Cool, merci

c'est la même chose en mieux.

C'est en plus la bonne valeur ... car N0.SEMAINE donne 3 fois sur 7 des valeurs erronées (non confirmes à la norme ISO).

Essayez 1/1/2016 !

Bonjour,

Pour être complet il y a quand même des erreurs avec datepart() sur ces dates (dernier lundi de l'année) :

29/12/1947, 31/12/1951, 30/12/1963, 29/12/1975, 31/12/1979, 30/12/1991, 29/12/2003

31/12/2007, 30/12/2019, 29/12/2031, 31/12/2035, 30/12/2047, 29/12/2059

Bon on est tranquille jusqu'en 2019 mais ça va venir vite.

eric

Bonsoir Eric

Merci ; c'est bon à savoir

Amicalement

Nad