Enchainement de macros

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 ?

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:

---

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:

---

1 2 3

...Msgbox... MM2=false Exit Sub

---

Déclarer la variable en Public

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:

---

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:

---

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

---

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"

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?:weird:
Cordialement 8-)

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:

---

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:

---

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

---

Salut

Citation:

---

Envoyé par Philippe Tulliez

[...]

---

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 :(

Salut.

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

Code:

---

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é.

Bonjour Pierre,

Citation:

---

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.

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, :plusser: ;)

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...)