Discussion :

[discus23]

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 !

[Invité]

Salut,

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

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

Code :

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

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.

[discus23]

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