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

Mrlr · 24 Mai 2019

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é · 24 Mai 2019

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

Mrlr · 24 Mai 2019

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

dg62 · 24 Mai 2019

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

Efgé · 24 Mai 2019

Re
Bonjour dg62

Mrlr à dit:
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 · 24 Mai 2019

dg62 à dit:
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

Efgé à dit:
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 · 24 Mai 2019

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

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

Mrlr

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Mrlr

XLDnaute Nouveau

Pièces jointes

dg62

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Mrlr

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

Discussions similaires