Code

[apdf1]

Bonjour et bon dimanche,

Voila j'ai un code qui marche mais suivant des moments, il plante message d'erreur "Nom de feuille incorrect" alors que le nom est feuil8 ou autre.

Voici le code

Private Sub CommandButton1_Click() ' Bouton Valide
    If TextBox1 <> "" Then
        Sheets.Add
        On Error Resume Next
        ActiveSheet.Name = TextBox1
        If Err <> 0 Then
            On Error GoTo 0
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
            MsgBox " Nom de feuille incorrect"
            TextBox1 = ""
            Exit Sub
        End If
        ActiveSheet.Move After:=Sheets(ActiveWorkbook.Worksheets.Count) ' Placer la feuille à la suite
        Sheets("Accueil").Range("A1").Copy ActiveSheet.Range("A1") ' avec lien vers la feuille accueil
        Unload Me
    End If
    
End Sub

Existe t-il un autre code pour ajouter et nommer des feuille
s
Merci d'avance

Cordialement

Max

 

[apdf1]

Re : Code

Bonjour Jean-Marcel,

Et merci d'avoir répondu, suivant des moments sa plante et sa m'envoie le message d'erreur au même moment et des fois sa marche alors que j'ai rien fait.

C'est pour sa que je demander si il exister un autre code.

Cordialement Max

 

[gillesdemev]

Re : Code

Bonjour tous, bonjour adpf1
J'ai testé ton code avec excel 2007 sous vista et je n'arrive pas à le planter
J'ai essayé ce code ci

Sheets.Add After:=Sheets(Sheets.Count)

Mais rien de nouveau

 

[apdf1]

Re : Code

Bonjour Gilles

Oui je crois que sa viens d'autre code qui se trouve dans le même dossier Car j'ai un dossier rempli d'userform sa doit faire de temps a autre un chamboulements a mon avis.

Il faudrais que je passe peut être avec du Acces

Merci d'avoir répondu

Max

 

[Pierrot93]

Re : Code

Bonjour à tous,

autre possibilité d'errreur, tu nommes la feuille avec des caractères interdits... comme ceux ci par exemple : \ /?* []

bonne journée
@+