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 Sub
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
J'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...

Pouvez vous m'aider???

Merci