Erreur automatique Résolu

Question

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

cs_Le Pivert · Answer

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

Jeff · Answer

Bonjour et merci pour ta réponse. 

Cela fonctionne, mais très étrange que ça ne fonctionne pas avec ActiveWindows.

Bonne journée.

Erreur automatique

2 réponses

Discussions similaires

Newsletters