XL 2010 Renommer séquentiellement les feuilles objets (vbe)

[herve62]

Bonsoir
Il me semble (plus sûr) 'il y qq années JOB m'avait permis de renommer les feuilles (voir image) 1 2 3 4 5 ... et pas 45 46 ...
mais je retrouve pas
Est ce vraiment possible ?

 

[herve62]

Bonsoir Laurent
Non je veux que ce soit Feuil3(France) et pas comme l'image

 

[Jacky67]

Bonsoir
Il me semble (plus sûr) 'il y qq années JOB m'avait permis de renommer les feuilles (voir image) 1 2 3 4 5 ... et pas 45 46 ...
mais je retrouve pas
Est ce vraiment possible ?

Bonjour,
S'il n'y a pas plus que 5 feuilles, c'est facilement faisable manuellement dans vba

 

[Dranreb]

Bonsoir.
Tapez "Feuil3" au lieu de "Feuil45" dans le champ "(Name)" de l'objet Worksheet (à ne pas confondre avec sa propriété 'Name" qui est le nom d'onglet).
Mais pourquoi par "WshFrance" qui serait plus clair ?

 

[herve62]

Bonsoir Jacky
Le truc c'est que si le si le fichier se lance x fois ( possible d'aller à + de 500) je ne sais pas si VBE acceptera Feuil567 exemple ?
et se taper manuellement .... à chaque fois pas marrant

 

[Jacky67]

Bonsoir Jacky
Le truc c'est que si le si le fichier se lance x fois ( possible d'aller à + de 500) je ne sais pas si VBE acceptera Feuil567 exemple ?
et se taper manuellement .... à chaque fois pas marrant

Heuu!!
Je ne comprend pas ce que tu veux dire...
Mon image démontre ce que Dranreb (que je salue), d'écrit.
Un "CodeName" d'une feuille est unique et ne change pas à l'ouverture d'un classeur
Ou alors je n'ai pas compris la question.

 

[Dranreb]

Essayez un truc comme ça :

Sub WshCodeName()
   Dim Wbk As Workbook, Wsh As Worksheet
   Set Wbk = ActiveWorkbook
   For Each Wsh In Wbk.Worksheets
      Wbk.VBProject.VBComponents(Wsh.CodeName).Properties("_CodeName") = "Wsh" & Wsh.Index
      Next Wsh
   End Sub

Attention l'accès au modèle d'objet du projet VBA doit être approuvé dans les options du projet.

Non, mais c'est vrai que lorsqu'on crée des feuilles supplémentaires par VBA, il y met n'importe quoi comme CodeName. Alors au bout d'un moment ça pourrait être utile d'avoir un moyen de les renommer en masse …

 

[Staple1600]

Bonsoir

Je crois qu' @hervé62 parle de ceci

Sub test()
Dim i%
For i = 1 To 5
ThisWorkbook.VBProject.VBComponents(Sheets(i).CodeName).Name = "STAPLE" & i
Next
End Sub

NB: Au préalable, cocher : Options/Centre de gestion.../Paramètres macros/Accès approuvé au modèle d'objet du projet VBA

PS: A tester sur un classeur vierge avec 5 feuilles

EDITION : Bim! collision
Désolé, Dranreb, pas vu ton message

 

[Jacky67]

RE...
Hello JM
Oui par vba, mais se taper un code pour changer le "codename" de 2 feuilles, je trouve un peu exagéré.

 

[Staple1600]

Re

Bonjour @Jacky67
Si on compte toutes les fois sur XLD où on utilise VBA alors qu'Excel sait faire avec ce qu'il a dans le bide
(formules, TCD, PQ etc...), on n'est pas rendu

 

[herve62]

Ok merci bien à vous
je testerai demain , là à la main ça va
@Jacky67 > j'ai écris au #6 à plus de 500 !!
Bonne soirée
PS je viens juste de voir Jean Michel > là je ne pense pas que EXCEL supprime des onglets , en ajoute ...les renomme regarde si l'onglet nommé existe ..etc ???

 

[Staple1600]

@herve62

Qui dans la vrai vie utilise un classeur avec 500 feuilles ?
Dans quel contexte ?

Ps: en général, je n'utilise que deux feuilles (voir trois)
Accueil, BD et TCD

 

[Jacky67]

Bonsoir Laurent
Non je veux que ce soit Feuil3(France) et pas comme l'image

Re..
C'est pourtant pas compliqué....
Tu remplaces Feuil45 par Feuil3 et Feuil46 par Feuil4 à l'endroit que j'ai encadré.[#3]
Il faut évidemment enregistrer le classeur.

 

[Jacky67]

Re

Bonjour @Jacky67
Si on compte toutes les fois sur XLD où on utilise VBA alors qu'Excel sait faire avec ce qu'il a dans le bide
(formules, TCD, PQ etc...), on n'est pas rendu

Honte à moi, j'en fais partie, cela est certainement dû que certain sont plus à l'aise en vbe qu'en formules.

 

[Phil69970]

Bonjour à vous tous

@herve62

Ceci devrait te rassurer et bien sur tu peux enregistrer le fichier et le rouvrir sans problème

Mais qui à un fichier avec 10 000 000 de feuilles comme sur l'image