Discussion :

[nanousik]

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

[Invité]

C'est bizarre que ta nouvelle feuille s'appelle 'Feuil1'.
En tout cas tu peux utiliser le code suivant qui ne nécessite pas de préciser le nom de la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Workbooks(nomAppli)
        .Sheets.Add After:=.Sheets(.Sheets.Count)
        .ActiveSheet.Name = nom
End With

[Philippe Tulliez]

Bonjour,
Tu crées une nouvelle feuille que tu renommes ensuite. Tu n'as donc pas besoin de lui passer un n° de feuille
Tu peux donc modifier la procédure comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CreationFeuille(nomAppli, nom)
 With Workbooks(nomAppli)
 .Sheets.Add After:=.Sheets(.Sheets.Count)
 .Sheets(.Sheets.Count).Name = nom
 End With
End Sub

En l'appelant comme suit par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TestCrea()
 CreationFeuille ThisWorkbook.Name, "Toto"
End Sub

[nanousik]

Ah super c'est mieux comme ça en effet

Merci