Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 RESOLU Renommer une feuille grâce à une variable VBA

Mrlr

XLDnaute Nouveau
Bonjour,

Je m'explique :
Je duplique d'abord une feuille "modèle", elle se renomme automatiquement en "modèle (2)". Je souhaite donc la renommer grâce à une variable. Cette variable correspond à le contenu texte d'une cellule dans une autre feuille, ici "BDD".
J'ai déjà épluché beaucoup de forums mais je ne trouve rien qui fonctionne. Voici ce que j'ai fait :

Je pense que c'est sur la dernière ligne que vous pouvez m'aider
Merci d'avance !


VB:
[SIZE=4][FONT=Segoe UI][COLOR=rgb(20, 20, 20)]
Dim Nomsynthese As String

Worksheets("BDD").Select
Nomsynthese = Range("A2").Text
Worksheets("Modèle").Copy After:=Worksheets("Paramètres")
Worksheets("Modèle (2)").Name = Nomsynthese[/COLOR][/FONT][/SIZE]
 

Efgé

XLDnaute Barbatruc
Bonjour Mrir
Une proposition:
VB:
Sub Crea_Feuille()
Sheets("Modèle").Copy After:=Sheets("Paramètres")
Sheets(Sheets("Paramètres").Index + 1).Name = Sheets("BDD").Range("A2").Value
End Sub
Si une feuille de même nom existe déjà, ça n'ira pas
Cordialement
 

dg62

XLDnaute Barbatruc
Bonjour Mrlr, Efgé

VB:
Worksheets("BDD").Select
Nomsynthese = Range("A2").Text
Worksheets("Modèle").Copy After:=Worksheets("Paramètres")
Worksheets("Modèle (2)").Name = Nomsynthese
Ce code fonctionne très bien
 

Mrlr

XLDnaute Nouveau
Re
Bonjour dg62

Lis bien le message d'erreur.
Ce n'est pas le code qui pose problème mais le texte en A2 qui n'est pas valable comme nom d'onglet.

Cordialement
Oui désolé, faute d'inattention je n'avais pas vérifier le contenu de ma case A2 qui est la seule à ne pas correspondre aux critères...
Merci quand même pour ton aide, ta partie index +1 m'arrange bien !
Bonne journée
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…