Discussion :

[GGEREMMY]

Bonjour à tous,
Après bien des recherches et ne trouvant pas la réponse à un problème je me résous à éditer ce message.

J'ai reproduit le problème dans ce petit code.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub TestErreurs()
 
On Error GoTo GestionErreurs
Dim i As Integer
i = "Toto"
'i = 12
Debug.Print "Ici on a d'autres instructions"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
 
Suite:
Windows("test.xlsx").Activate
 
MsgBox "Suite de la procédure"
 
On Error GoTo 0
Exit Sub
 
GestionErreurs:
 
    Select Case Err.Number
        Case 13
        'MsgBox "Il s'agit d'une incompatibilité de type"
        i = 3
        GoTo Suite
 
 
        Case 9
        MsgBox "Ce classeur n'est pas ouvert !"
        Resume Next
 
        Case Else
        MsgBox Err.Number & "  " & Err.Description
 
    End Select
 
End Sub

Le but est de créer une première erreur gérée par le "Select Case" Case 13 qui renvoie à l'étiquette Suite :
(une variable de type "Integer" ne peut recevoir une valeur de type "String")
Cette partie de la gestion d'erreurs fonctionne

Puis de créer une seconde erreur en appelant un fichier qui n'existe pas (normalement Case 9 du "Select Case")

Et là, la gestion des erreurs ne fonctionne pas

Si par contre on attribue une valeur cohérente d'entier à "i", l'erreur due au fichier qui n'existe pas est prise en compte.
étonnant non ?

Cordialement
GG

[Invité]

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub TestErreurs()
 
On Error GoTo GestionErreurs
Dim i As Integer
i = "Toto"
'i = 12
Debug.Print "Ici on a d'autres instructions"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
 
Suite:
Windows("test.xlsx").Activate
 
MsgBox "Suite de la procédure"
 
On Error GoTo 0
Exit Sub
 
GestionErreurs:
 
    Select Case Err.Number
        Case 13
        'MsgBox "Il s'agit d'une incompatibilité de type"
        i = 3
        GoTo Suite
 
 
        Case 9
        MsgBox "Ce classeur n'est pas ouvert !"
 
        Case Else
        MsgBox Err.Number & "  " & Err.Description
 
    End Select
 err.clear
 Resume Next
 
End Sub

[GGEREMMY]

Bonjour et merci pour cette réponse très rapide.

Malheureusement le problème est toujours le même.
Au moment du déclenchement de la 2ème erreur j'ai toujours le pop-up VBA " Erreur d'exécution '9' : L'indice n'appartient pas à la sélection"

D'autre part le code en pas à pas ne passe jamais par les lignes 38-39 (ajoutées par vos soins)

Code :

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

1
2
3
 
err.clear
Resume Next

La question reste donc entière !

Cordialement,

GG

[Philippe PONS]

Remplacez Goto Suite par Resume Suite
NB: attention à ne pas tomber das une boucle sans fin avec un code de ce genre!

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
27
28
29
30
31
32
33
34
35
36
37
Sub TestErreurs()
 
    On Error GoTo GestionErreurs
    Dim i As Integer
    i = "Toto"
    'i = 12
    Debug.Print "Ici on a d'autres instructions"
    Debug.Print "-------------------------"
    Debug.Print "-------------------------"
    Debug.Print "-------------------------"
    Debug.Print "-------------------------"
 
Suite:
 
    Windows("test.xlsx").Activate
 
    MsgBox "Suite de la procédure"
 
    ' NB: Exit Sub fait automatiquement le On Error Goto 0
    Exit Sub
 
GestionErreurs:
 
        Select Case err.Number
            Case 13
                MsgBox "Il s'agit d'une incompatibilité de type"
                i = 3
                Resume Suite
            Case 9
                MsgBox "Ce classeur n'est pas ouvert !"
            Case Else
                MsgBox err.Number & "  " & err.Description
        End Select
     err.Clear
     Resume Next
 
End Sub

[GGEREMMY]

Bonjour,
Un grand merci à Philippe PONS pour ses explications.
Le problème est réglé et j'en ai appris un peu plus sur la gestion des erreurs.
De retour d'une formation où la gestion des erreurs a été abordée j'essaie de mettre en place les acquis et tente de remplacer toutes les vilaines procédures de contournement mises en place jusqu'alors.
C'est pourquoi j'ai utilisé ce type de structure de gestion des erreurs.

J'ignorais qu'on pouvait utiliser le "Resume" avec une étiquette et que "Exit Sub" fait automatiquement le "On Error Goto 0 "

Un petit mot sur le "err.Clear" dont on ne m'a pas parlé en formation.

D'après ce qui est indiqué dans l'aide (F1) :

La méthode Clear est appelée automatiquement dès que l'une des instructions suivantes est exécutée :

• Tout type d'instruction Resume
• Exit Sub, Exit Function, Exit Property
• Toute instruction On Error

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub TestErreurs()
 
On Error GoTo GestionErreurs
Dim i As Integer
i = "Toto"
'i = 12
 
Debug.Print "Ici on a d'autres instructions"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
Debug.Print "-------------------------"
 
Suite:
 
Windows("test.xlsx").Activate
MsgBox "Suite de la procédure"
 
'NB: Exit Sub fait automatiquement le On Error Goto 0
'On Error GoTo 0
Exit Sub
 
GestionErreurs:
 
    Select Case Err.Number
        Case 13
        'MsgBox "Il s'agit d'une incompatibilité de type"
        i = 3
        Resume Suite
 
 
        Case 9
        MsgBox "Ce classeur n'est pas ouvert !"
        Resume Next
 
        Case Else
        MsgBox Err.Number & "  " & Err.Description
 
'       Le fichier d'aide indique :
            'La méthode Clear est appelée automatiquement dès que l'une des instructions suivantes est exécutée :
            'Tout type d'instruction Resume
            'Exit Sub, Exit Function, Exit Property
            'Toute instruction On Error que le .cleat se fait automatiquement
       Err.Clear
    End Select
 
End Sub

Dans ce cas précis, il semblerait bien qu'elle ne soit pas indispensable.

Cordialement

GG

[Invité]

Bonjour,

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
Sub TestErreurs()
 On Error GoTo GestionErreurs
 
For i = 8 To 13
Err.Raise i, , CStr(i)
Next
Exit Sub
GestionErreurs:
 
    Select Case Err.Number
        Case 13
            MsgBox "Err de type"
        Case 9
        MsgBox "Ce classeur n'est pas ouvert !"
        Case Else
        MsgBox Err.Number & "  " & Err.Description
 
    End Select
  Err.Clear
  Resume Next
End Sub