XL 2013 Ouverture onglet

Dranreb

XLDnaute Barbatruc

• 5 Janvier 2021

• #2

Bonjour.
Ceci a l'air de marcher mieux :

VB:

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 5 Janvier 2021

• #3

Bonjour,

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

VB:

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

 

Pièces jointes

• ouverture semaine en cours.xlsm

  382.2 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Janvier 2021

• #4

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 …

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 5 Janvier 2021

• #5

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

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 5 Janvier 2021

• #6

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

VB:

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

Crdlmt

 

Vote positif 0 Vote négatif