Renommer une feuille sur excel en vba

[SUCCES20]

Bonsoir famille


J'aimerai juste savoir comment faire pour renommer les feuilles après création des feuilles avec un code VBA

merci et bonne soirée a vous

 

[Dranreb]

Bonsoir.
Comme pour la pulpart des collections Excel, la méthode Add de la collection Worksheets renvoie un objet Worksheet représentant la feuille ajoutée. Il suffit donc de penser à le récuperer soit par un Set dans une variable soit comme expression d'un With afin de changer sa propriété .Name.

 

[SUCCES20]

Bonsoir Famille voici un fichier exemple
J'ai besoin de votre aide pour pouvoir configurer le bouton RENOMMER UNE FEUILLE afin de renommer une feuille sans afficher Excel
Le nom de la feuille renommée doit être copié dans la colonne "F" de la feuille "LISTE"
Lors de l'afficharge d'excel par le bouton EXCEL ON seule la feuille COPIE doit être affichée le reste doit être masquée

 

[Dranreb]

Veuillez joindre un classeur débarrassé de toutes ces dispositions idiotes de protection du projet VBA et d'application non affichée …

 

[SUCCES20]

VOICI LE FICHIER

 

[Dranreb]

Ça ne va toujours pas. Le classeur se ferme toujours aussitôt quoi que j'essaie de faire.

 

[Dranreb]

Je crois que je ne vais pas intervenir plus longtemps. Pas la peine de joindre un autre fichier.

 

[SUCCES20]

Cliquer sur le bouton EXCEL ON qui se trouve en bas a gauche

 

[SUCCES20]

voici le fichier

 

[Dranreb]

À quel endroit du code essayez vous de créer une feuille ?

Ah, par Copy seulement ? Et ActiveSheet.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1 derrière ne marche pas ?

 

[SUCCES20]

apres l'ouverture clique sur la partie entouré pour afficher excel

 

[SUCCES20]

ça marche mais ça ne renomme pas
on met seulement 1 2 3 ….

 

[Dranreb]

Quand je clique sur "Créer une feuille", ça m'ajoute chaque fois une nommée "1", "2" etc.
Et je ne peux toujours pas fermer l'UserForm sans que ça me ferme le classeur. Agacent, ça !

 

[SUCCES20]

Ok je viens de mettre un bouton Fermer

 

[Dranreb]

C'est mieux. Mais il n'y a pas de Private Sub Label45_Click() pour renommer une feuille.
Vous devriez mettre des noms mnémoniques aux contrôles pour pouvoir s'y retrouver plus facilement.
Personnellement je les fais précéder d'un trigramme pris de cette liste :