Discussion :

[retraite83]

Bonjour,

j'ai un classeur "C" dans le lequel une macro "M1" s'exécute et lance une seconde macro "M2"

Cette macro "M2" détecte une erreur, affiche une Msgbox et fait "Exit sub"

Le problème est qu'on revient dans la macro"M1" qui continue de s'exécuter

Je voudrai après la msgbox sortir de "M1" et de "M2" en restant sur le casseur "C"

J'ai essayé "Quit" mais cette fonction quitte excel

existe-t-il une solution ?

[78chris]

Bonjour

Il faut prévoir une variable pour tester la bonne exécution de M2 (ou bien faire de M2 une fonction qui retourne une valeur)

Par exemple :
Dans M1

Code :

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

1
2
3
MM2=True
Call M2
Il MM2=False then exit sub (intercaler éventuellement des lignes qui ne laissent pas Excel dans une état instable)

Dans M2

Code :

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

1
2
3
...Msgbox...
MM2=false 
Exit Sub

Déclarer la variable en Public

[Philippe Tulliez]

Bonjour,
Si ta procédure nommée M2 est une Sub, transforme la en Function qui renvoie une valeur booléenne et au retour dans M1, tu testes si la valeur renvoyée est True ou False
Exemple du code de la procédure Main qui invoque trois procédures Function
Les procédures se succèdent mais s'interrompent si l'une d'elles renvoie False

Code :

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

1
2
3
4
5
6
7
Sub Main()
  If Process1 Then
     If Process2 Then
        Process3
     End If
  End If
End Sub

Exemple de trois fonctions nommées Process1, 2 & 3 dont la deux renvoie False

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function Process1() As Boolean
  MsgBox "Process 1"
  Process1 = True
End Function
Function Process2() As Boolean
  MsgBox "Process 2"
  Process2 = False
End Function
Function Process3() As Boolean
  MsgBox "Process 3"
  Process3 = True
End Function

[retraite83]

Merci à vous 2,

j'ai un autre cas semblable mais sur 2 classeurs et auquel je n'avais pas pensé :

Sur une feuille "F1" d'un classeur "C1", un bouton exécute une macro "M1" qui ouvre un classeur "C2"

Dans "Thisworbook open" de C2 une erreur peut être détectée et est affichée dans une Msgbox avant de faire "Exit sub"

Je voudrai après la msgbox sortir du classeur "C2" (Exit sub) mais aussi de la macro "M1" tout en restant sur la feuille "F1"

[Transitoire]

Bonjour, Exit Sub arrête la macro en cours, si vous voulez arrêter toutes les macros il faut mettre End, qui arrête toutes les macros en cours. attention, à l'état des choses en cours au moment de l'arrêt?
Cordialement

[Philippe Tulliez]

Bonjour,
Plusieurs possibilités dont en voici une
Dans la procédure événementielle Workbook_Open du classeur C2 (ici nommé Test Ouverture Classeur.xlsm), on place un On Error

Code :

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

1
2
3
4
5
Public Sub workbook_Open()
 dim r as double 
 On Error Resume Next
 r = 10 / 0
End Sub

Dans la procédure nommée Main du classeur C1 (ici ThisWorkbook), on intercepte le numéro de l'erreur et on choisi l'option à prendre en fonction de ce numéro
Exemple

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
Sub Main()
  Dim wkb As Workbook
  Dim appFolder As String, Fullname As String
  Dim errN As Long
  appFolder = ThisWorkbook.Path
  Fullname = appFolder & "\" & "Test Ouverture Classeur.xlsm"
  Set wkb = Workbooks.Open(Fullname)
  errN = Err.Number
  On Error GoTo 0
  If errN Then
      MsgBox "La procédure doit s'arrêter"
      wkb.Close
    Else
     MsgBox "On continue"
  End If
End Sub

[Pierre Fauconnier]

Salut

[...]

Le périmètre de la gestion d'une exception est la procédure dans laquelle le gestionnaire a été installé et sa pile d'appel. Une erreur ne remonte donc jamais au delà de la procédure qui la gère. Il n'est pas possible de propager l'erreur dans une autre procédure, et il n'est donc pas possible, dans la procédure Main, de récupérer le numéro d'une erreur survenue dans une autre procédure, a fortiori d'un autre classeur. C'est dans la procédure Main que l'on doit placer le gestionnaire d'erreurs, dans le cas illustré.

[EDIT] Mal lu la réponse de Philippe

[Pierre Fauconnier]

Salut.

Une autre solution est de générer une nouvelle erreur dans la procédure qui l'a interceptée.

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
Sub Main()
  On Error Resume Next
  Proc2
  If Err = 0 Then
    MsgBox "On continue"
  Else
    MsgBox "On arrête"
  End If
 
End Sub
 
Sub Proc2()
  On Error Resume Next
  Debug.Print 5 / 0
  If Err <> 0 Then
    MsgBox "Erreur: " & Err.Description
    Err.Raise Err.Number
  End If
End Sub

Cela étant dit, il me semblerait a priori plus simple et surtout plus correct de ne pas gérer l'erreur dans la Proc2 et de le faire uniquement dans la proc 1. Ce genre de montage révèle régulièrement un problème d'architecture de code.

Si besoin de gérer l'erreur dans la proc2 (fichier ou connexion à refermer, ...), cette gestion d'erreur dans Proc2 devrait être transparente pour l'utilisateur, et la proc2 devrait alors être transformée en fonction pour renvoyer une valeur qui sera gérée dans la procédure appelante, comme Philippe l'a montré au #3. Dans ce cas, on utilise souvent Function ...(...) As Long et on renvoie soit 0 (tout s'est bien passé), soit une valeur qui permet au code appelant de gérer le problème rencontré.

[Philippe Tulliez]

Bonjour Pierre,

Le périmètre de la gestion d'une exception est la procédure dans laquelle le gestionnaire a été installé. Il n'est pas possible de propager l'erreur dans une autre procédure, et il n'est donc pas possible, dans la procédure Main, de récupérer le numéro d'une erreur survenue dans une autre procédure, a fortiori d'un autre classeur. C'est dans la procédure Main que l'on doit placer le gestionnaire d'erreurs, dans le cas illustré.

C'est ce que je pensais également mais comme je ne publie jamais un code sans l''avoir testé, je poeux te confirmer que dans ce cas d'espèce, j'ai bien la valeur 11 renvoyée comme erreur et lorsqu'il n'y a pas d'erreur j'ai bien 0
Ceci étant dit, personnellement je gère tout dans un seul classeur ou depuis un xlam et les classeurs supplémentaires que je dois ouvrir ne contiennent que des données.

[Pierre Fauconnier]

Mea Culpa, Philippe

Et en fait, c'est effectivement le comportement tout à fait normal puisque l'erreur remonte la pile d'appels si le gestionnaire n'est pas remis à 0. C'est d'ailleurs ce que j'explique dans mon message suivant.

A mon avis, je n'avais pas ma dose de café lorsque j'ai répondu à ton message. Encore désolé pour la méprise. Du coup,

Et le pire, c'est que sachant que tu testes toujours tes solutions, je l'avais testée aussi (j'ai pas dû bien ouvrir les yeux...)