Erreur automatique [Résolu]

Signaler
-
 Jeff -
Bonjour,

Je cherche à supprimer une feuille via macro, celle-ci avec le code ci-dessous est bien supprimée, mais me renvoie une erreur juste après :

'-2147467259 (80004005)':

Automation error
L'erreur intervient sur cette ligne : If Ws.Name = "Comptabilité" Then

Je suis allé voir sur la doc Microsoft, et apparemment ce problème intervient sur une feuille protégée (ce qui n'est pas le cas pour moi).

Voici mon code pour la suppression de celle-ci :

Application.DisplayAlerts = False
For Each Ws In Worksheets
    If Ws.Name = "Comptabilité" Then
        Sheets("Comptabilité").Select
        ActiveWindow.SelectedSheets.Delete
    End If
Next
Application.DisplayAlerts = True


Merci
Configuration: Windows / Edge 18.17763

2 réponses

Messages postés
7267
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2021
616
Bonjour,

essaie ceci:

Option Explicit
Sub test()
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In Worksheets
    If Ws.Name = "Comptabilité" Then
        Ws.Delete
       End If
Next
Application.DisplayAlerts = True
End Sub

Bonjour et merci pour ta réponse.

Cela fonctionne, mais très étrange que ça ne fonctionne pas avec ActiveWindows.

Bonne journée.
Messages postés
7267
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2021
616
Pourquoi faire compliqué quand on peut faire simple :)
>
Messages postés
7267
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2021

C'est bien vrai, mais j'essaye d'approfondir mon apprentissage du VBA ^^