Bonjour,
Je réalise une macro pour supprimer des feuilles sous Excel, sauf qu'au lancement de la macro j'ai une erreure 1004 avec le message suivant : "la méthode delete de la classe worksheet a échoué"
J'ai essayé deux codes et j'ai la même erreure: ci dessous les deux codes essayés
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub CommandButton1_Click() Sheets("Feuil2").Delete Application.DisplayAlerts = False End SubJ'ai un autre fichier avec lequel les deux codes fonctionnent correctement, donc je ne comprends pas d'où peut venir l'erreure. Je sais que certaines dicussions portent sur ce sujet mais je n'ai pas trouvé de solution...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim ws As Worksheet Dim xd As String xd = ActiveSheet.Name With Application .DisplayAlerts = False .ScreenUpdating = False For Each ws In Worksheets If ws.Name <> xd Then ws.Delete Next ws .DisplayAlerts = True .ScreenUpdating = True End With
Pouvez vous m'aider???
Merci
Partager