Erreur automatique
Résolu
Jeff
-
Jeff -
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 :
Merci
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
A voir également:
- Erreur automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Sommaire automatique word - Guide
- Réponse automatique gmail - Guide
- Demarrage automatique - Guide
2 réponses
Bonjour,
essaie ceci:
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