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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Call openFiles(fichier1, "FICHIER1")
Call openFiles(fichier2, "FICHIER2")

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 !