Bonjour,

J'ai créé une fonction qui permet de créer une feuille dans mon outil et qui la renomme. Mais j'ai une erreur qui apparaît après la création:Erreur d'éxécution '1004' la méthode select de la classe worksheet a échoué

J'ai testé plusieurs choses mais je ne trouve vraiment pas pourquoi ça ne fonctionne pas.

Voila la fonction: (L'erreur apparaît sur la ligne 5)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub CreationFeuille(nomAppli, nom, numFeuille)
    With Workbooks(nomAppli)
        .Sheets.Add After:=.Sheets(.Sheets.Count)
        .Sheets("Feuil" & numFeuille).Select        
        .Sheets("Feuil" & numFeuille).Name = nom
    End With
    numFeuille = numFeuille + 1
End Sub
Lorsque je crée la feuille et que le bug arrive j'ai bien vérifié la variable nomAppli correspond bien au nom du classeur et numFeuille est égal à 1 puisque la feuille créé se nomme "Feuil1".

Si quelqu'un a une idée de l'erreur que j'ai commise je vous remercie d'avance pour votre aide