Problème pour créer une feuille par VBA et la nommer

Bonsoir le forum,

Je suis confronté à un petit problème.

Dans une procédure, je dois à la fin ajouter une feuille avec un nom défini par une variable.

Lorsque j'active cette procédure, tout fonctionne sauf que j'ai un message

Ma ligne de code erronée est la suivante:

Dim Lien_Bail as String

            Lien_Bail = TextBox19.Value & "/" & TextBox11.Value & "/" & TextBox20.Value
            Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Lien_Bail

La procédure me crée tout de même une feuille mais nommée Feuil1.

Quelqu'un aurait-il une idée du problème?

Merci d'avance

Donpopô

Bonjour,

Les caractères "/" sont interdits... je sais ce n'est pas indiqué

@+

Bonsoir Bruno,

J'ai supprimé mes / et essayé avec des tirets underscore

ex.: L2_2013_B1

Cela me met la même erreur. Pourtant, j'ai nommé certaines de mes feuilles avec ce genre de tiret dans le titre.

Est-ce que j'ai mal libellé ma ligne de commande qui nomme ma variable? Ou alors je devrais essayer sans ponctuation?

Re,

Si je teste ce code, pas de souci

Sub test()
  Dim Lien_Bail As String
  'Lien_Bail = TextBox19.Value & "/" & TextBox11.Value & "/" & TextBox20.Value
  Lien_Bail = "toto" & "_" & "Tata" & "_" & "machin"
  Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Lien_Bail
End Sub

Sur 2013, cela peut être un souci de nombre de feuilles !

@+

En fait, je dois corriger mon profil. Je suis avec Office 2019 depuis avant-hier.

Lien_Bail = TextBox19.Value & "_" & TextBox11.Value & "_" & TextBox20.Value

Moi j'ai essayé cela, mais même erreur. J'ai même essayé:

Lien_Bail = TextBox19.Value & TextBox11.Value & TextBox20.Value

Même erreur. Seraient-ce à cause de mes textbox?

Re,

Avez-vous essayer le code donné plus haut ?

@+

Bonjour toutes et tous

coucou BrunoM45 ^^

@Donpopo

@tester légèrement différent que BrunoM45

Sub test()
Dim Lien_Bail as String
On Error Goto plouf
If Lien_Bail.Value <> "" Then
Sheets.Add
ActiveSheet.Name = TextBox19.Value & "_" & TextBox11.Value & "_" & TextBox20.Value
Else
'Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Lien_Bail
Exit Sub
End If
plouf: MsgBox "Erreur !"
End Sub

crdlt,

André

Merci tous deux,

je vais essayer tout cela

a+