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

[Mrlr]

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 !

[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é]

Bonjour Mrir
Une proposition:

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

 

[Mrlr]

Bonjour Efgé
Merci pour ta réponse rapide mais malheureusement la même erreur revient :

 

[dg62]

Bonjour Mrlr, Efgé

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

 

[Efgé]

Re
Bonjour dg62

Merci pour ta réponse rapide mais malheureusement la même erreur revient :

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

 

[Mrlr]

Bonjour Mrlr, Efgé

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

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

 

[dg62]

Effectivement je n'avais pas vu le message d'erreur