Discussion :

[VBnerve]

Bonjour,

Le code suivant génère des erreurs que je parviens pas à résoudre :
(c'est la première partie que l'on teste => "extracteurs Journaliers" la feuille est supprimmée avec les messages d'erreurs suivants)

Erreur d'exécution 424 : Objet requis
parfois précédé de "Impossible d'entrer en mode arrêt maintenant

J'ai vérifié sur dans l'aide / en faisant une macro / sur le net. Il me semble que les instructions sont bonnes pourtant. Je pensais que c'était à cause du For Each (perte d'un objet de la collection) mais quand je sors le code de la boucle avec le nom de la feuille directement dans le code j'ai la même erreur.

Je précise que l'on supprime une feuille à partir d'une autre feuille.
La même commande faite depuis un module produit la même erreur

Merci d'avance pour vos conseils.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
For Each Sh In ThisWorkbook.Worksheets
 
'       Cas des extracteurs Journaliers.
        If Left(Sh.Name, 5) = TYPE_EXTR_J And _
              Len(Sh.Name) > Len(ONGLET_EXTRACTEUR_J) Then          
 
                Application.DisplayAlerts = False
                Sh.Delete
                Application.DisplayAlerts = True
 
        End If
'       Cas des extracteurs Horaire Multi-Journalier.
 
    If Not Sh Is Nothing Then
 
        If Left(Sheets(Sh.Index).Name, 5) = TYPE_EXTR_HMJ And _
              Len(Sheets(Sh.Index).Name) > Len(ONGLET_EXTRACTEUR_HMJ) Then
 
               Application.DisplayAlerts = False
               Application.Worksheets(Sheets(Sh.Index).Name).Delete
               Application.DisplayAlerts = True
 
        End If
    End If
 
Next

[Le Pierre]

bonjour

essaye ce code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    For Each Sh In ThisWorkbook.Worksheets
        ' Cas des extracteurs Journaliers.
        If Left(Sh.Name, 5) = TYPE_EXTR_J And _
            Len(Sh.Name) > Len(ONGLET_EXTRACTEUR_J) Then
 
            Application.DisplayAlerts = False
            Sh.Delete
            Application.DisplayAlerts = True
        Else
            ' Cas des extracteurs Horaire Multi-Journalier.
            If Left(Sheets(Sh.Index).Name, 5) = TYPE_EXTR_HMJ And _
                Len(Sheets(Sh.Index).Name) > Len(ONGLET_EXTRACTEUR_HMJ) Then
 
                Application.DisplayAlerts = False
                Application.Worksheets(Sheets(Sh.Index).Name).Delete
                Application.DisplayAlerts = True
            End If
        End If
    Next

dans ton code initial, après la suppression de la feuille dans le premier cas, la commande "If Not Sh Is Nothing Then" détectait quelque chose pour "Sh" et "Sh.Index" provoquait l'erreur car la feuille correspondante venait d'être supprimée.
à plus