[VBA excel] sortir d une appli VBA

Bonjour,

J'ai une application VBA dans laquelle j'ouvre des fichiers, je souhaite
donc vérifier que l'ouverture du fichier se passe bien.
J'ai utilisé la commande ON ERROR pour intercepter une erreur.

Code:

---

1 2 3

On Error GoTo TraitementFichierErreur Set objWorkbookDepart = Application.Workbooks.Open(TableauFich(j))

---

Je parviens à detecter une erreur et je passe à l'étiquette de gestion
de l'erreur.
Cependant si je valide apres affichage d'un MessageBox (qui renseigne sur l'erreur), je continue à executer le reste du programme.

Je souhaite donc trouver une commande qui me permette d arreter
l'execution successive des procédures qui suivent.
Ma procedure avec l'ouverture du ficher se situe dans
ListFileOfTheMonth

Code:

---

1 2 3 4 5 6 7 8

Call AccesFichierDuMois Call ListFileOfTheMonth(ExpenseType) Call Concatenation Call TheSort Call Consolidation Call TheSort2 Call EnregCSV_blanc '

---

D'avance merci de vos idées.

Il doit me manquer un truc du genre "Arreter le programme VBA ?"

Euh ben

Code:

---

Exit sub

---

devrait te convenir

Au passage pour sortir d'une boucle for tu peux aussi faire :

Code:

---

exit for

---

Salut comme de bien entendu,

Plutôt que de créer une procédure tu crée une fonction qui te retourne un booléen et tu met une condition sur cette fonction qui te stoppe l'exécution avec un exit sub

Ok
c'était finalement assez simple.
Mais je pensais pouvoir glisser une sortie du programme dans
mes sous procédures.
Ca va allourdir un peu mon "Main" mais il ne doit pas y avoir d'autres solutions.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub Main() Call AccesFichierDuMois ' recherche du mois et de l annnee a faire   If camarche = False Then Exit Sub   Call ListFileOfTheMonth(ExpenseType) ' recuperation de la liste de fichiers   If camarche = False Then Exit Sub   Call Concatenation ' preparation de l'index de tri   If camarche = False Then Exit Sub   Call CreateALog ' generation du fichier de log   If camarche = False Then Exit Sub   Call TheSort ' tri de toutes les lignes   If camarche = False Then Exit Sub   Call Consolidation ' sommation des lignes de dépenses et suppression des lignes doublons   If camarche = False Then Exit Sub   Call TheSort2 ' tri apres suppression des lignes en trop   If camarche = False Then Exit Sub   Call EnregCSV ' enregistrment de mon fichier resultat   End Sub

---