Microsoft 365 sheets(" ").select

Patrice33740

XLDnaute Impliqué

• 27 Février 2021

• #2

Bonjour,

"Janvier", c'est le nom de la feuille.
Que tu utilises une version française ou une version anglaise d'Excel, un système d'exploitation français ou anglais, le nom de la feuille reste le même : celui qui à été défini.

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 27 Février 2021

• #3

Salut Patrice

Certes, mais si l'onglet est janvier et que je passe sur un système d'exploitation Anglais de facto j'aurai January est le sheets Select ne fonctionnera pas comme déjà constaté

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Février 2021

• #4

Bonjour Amymone, Patrice33740,

Amymone à dit:

Certes, mais si l'onglet est janvier et que je passe sur un système d'exploitation Anglais de facto j'aurai January est le sheets Select ne fonctionnera pas comme déjà constaté

Cliquez pour agrandir...

Allons allons, la feuille "Janvier" restera toujours "Janvier".

Mais méditez sur cette macro qui fonctionne quelle que soit la langue de l'ordi :

VB:

Sub Activer_Feuille_Mois()
Dim mois, m$
mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
m = mois(Month(Date) - 1)
On Error Resume Next
Sheets(m).Activate
If Err Then MsgBox "La feuille '" & m & "' n'existe pas..."
End Sub

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Février 2021

• #5

Bonjour.
Il n'y a pas de raison à ce que les noms des feuilles changent dans un classeur quand on le fait relire par une version Excel d'une langue différente. Tout au plus y aurait-il un problème si, au lieu de le spécifier sous la forme constante que vous dites, le nom de la feuille désignée était obtenu d'après une date.
Dans ce cas le plus simple serait de la désigner plutôt d'après son numéro d'ordre positionnel.

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 27 Février 2021

• #6

Bonsoir à tous

J'ai pas très bien saisi ou peut-être que je m'explique mal là je conçois; car je suis novice en vba

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Février 2021

• #7

Vous montrez des bouts de projets VBA différents, appartenant donc à des classeurs différents.
Mais dans les deux Worksheets(1) désignerait la 1ère feuille quelle que soit son nom.
Worksheets(Month(Date)) aussi, si on est en janvier.
Bonjour @job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Février 2021

• #8

Bien sûr avec 2 fichiers différents il faut 2 macros différentes !

Salut Bernard.

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 27 Février 2021

• #9

Non job75 c'est ce que tente de vous dire, c'est le même fichier mais dès que je bosse dessus au taf les onglets sont en Anglais car la formule est:
Private Sub Worksheet_Activate()
Me.Name = Me.Range("B4").Text
End Sub
donc le sheet("janvier").select ne fonctionne pas car la feuille est "January"

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Février 2021

• #10

Ça vous ne l'aviez pas dit, qu'il y avait une autre macro qui changeait les noms des feuilles !

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 27 Février 2021

• #11

Désolée j'ai pas fait attention

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Février 2021

• #12

Ça laisse toujours la possibilité de désigner la feuille par sa position.

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 27 Février 2021

• #13

Ou par le codeName qui ne change pas quel que soit le nom et la position :

VB:

Feuil1.Activate

 

Vote positif 0 Vote négatif

A

Amymone

XLDnaute Nouveau

• 27 Février 2021

• #14

ou bien Sheets(1).Activate

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Février 2021

• #15

Dranreb à dit:

Ça laisse toujours la possibilité de désigner la feuille par sa position.

Cliquez pour agrandir...

Oui, ou par son nom trouvé dans des listes comme ici :

VB:

Sub Activer_Feuille_Mois()
Dim mois1, mois2, m1$, m2$
mois1 = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
mois2 = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
m1 = mois1(Month(Date) - 1)
m2 = mois2(Month(Date) - 1)
On Error Resume Next
Sheets(m1).Activate
If Err Then Err = 0: Sheets(m2).Activate
If Err Then MsgBox "La feuille '" & Application.Proper(Format(Date, "mmmm")) & "' n'existe pas..."
End Sub

 

Vote positif 0 Vote négatif