XL 2013 Ouverture onglet

[Moreno076]

Bonjour.

Lorsque j'ouvre le fichier ci-joint, l'ouverture se faisait sur l'onglet de la semaine en cours mais là ca ne fonctionne plus et je ne trouve pas la solution.

Merci pour votre aide

 

[Dranreb]

Bonjour.
Ceci a l'air de marcher mieux :

Worksheets("S" & [ISOWEEKNUM(TODAY())]).Activate

 

[Hasco]

Bonjour,

Dans le fichier joint vous trouverez une variable string 'nm' puis plus loin :

nm = Format(Date, "\SWW")
Worksheets(nm).Activate

Oui depuis la version 2010 parfois excel génère ce genre de problèmes (sur workbook_open surtout), que je n'ai pu résoudre jusqu'à présent qu'en déclarant une variable avant d'appeler Sheets ou Worksheets.

Quant au '\S' dans le format ne change rien au problème, c'est juste la méthode que j'utilise pour remplacer le "S" & Format(....)




Cordialement

 

[Dranreb]

Dans l'aide sur Format j'ai trouvé ça :

ww	1-53 (semaine de l’année sans zéro devant ; semaine 1 commence le 1er janvier)

ce qui n'est pas clair d'ailleurs. Une semaine commence un lundi. Alors si c'était plutôt celle qui contient le 1er janvier, alors je suppose qu'il prend comme semaine 1 de 2021 la 53 de 2020 en fait …

 

[Moreno076]

Merci à vous deux c'est résolu. Oui il y a deux semaines impaires je pense que la 53 provoque cette anomalie.

 

[djidji59430]

Bonjour à tous,
J' avais trouvé ça :

Worksheets("S" & Format(Date, "WW", vbMonday, vbFirstFourDays)).Activate

Crdlmt