Sujet Précédent Sujet Suivant

Erreur automatique

Résolu/Fermé
Jeff - 22 févr. 2021 à 10:26
 Jeff - 22 févr. 2021 à 11:39
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

Réponse 1 / 2
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
22 févr. 2021 à 10:59
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

1
Réponse 2 / 2
Jeff
22 févr. 2021 à 11:33
Bonjour et merci pour ta réponse.

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

Bonne journée.
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
22 févr. 2021 à 11:35
Pourquoi faire compliqué quand on peut faire simple :)
0
Jeff > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
22 févr. 2021 à 11:39
C'est bien vrai, mais j'essaye d'approfondir mon apprentissage du VBA ^^
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
creer sms automatique en cas d'absence
olio -
Oli -

15 réponses