Fin du programme via Fonction

Bonjour,

Dans mon code, j'appelle un sous programme afin d'ouvrir différents fichiers.

Dans ce sous programme, j'ai un Exit Sub qui stop l'exécution du sous programme sous une certaine condition. Jusque là, tout fonctionne, pas de problème.
Mais ce que je souhaiterais c'est arrêter aussi le programme principal à partir du sous programme, mais là, je n'y arrive pas...

Cela est-il possible? Et si oui, par quel moyen y arriver?

Pour support :

Code:

---

1 2 3

Call openFiles(fichier1, "FICHIER1") Call openFiles(fichier2, "FICHIER2")

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub openFiles(ByRef fichier As Variant, ByVal Nom As String) Do fichier = Application.GetOpenFilename(, , "SELECTIONNER " & Nom) If fichier = False Then toto = MsgBox("Fin du programme.", vbExclamation) Exit Sub End If Workbooks.Open Filename:=fichier Loop Until fichier Like ("*" & LCase(Nom) & "*") End Sub

---

D'avance merci !

Salut,

Citation:

---

Cela est-il possible? Et si oui, par quel moyen y arriver ?

---

Oui. Le mot clé est End
Un test simple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub TestProg() Prog Prog Prog End Sub Sub Prog() Static i As Byte i = i + 1 Debug.Print i If i = 2 Then End End Sub

---

L'exécution est ici arrêté a i = 2 ici et la fenêtre d'exécution ne doit pas afficher "3" malgré la présence d'un troisième Prog bien qu'il n'y ai pas condition d'arrêt pour i = 3.

Tout simplement, ça marche nickel, merci !!
(javais intuité End Sub mais sans succès....j'y étais presque^^)