Discussion :

[comme de bien entendu]

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 :

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

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 :

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

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 ?"

[conconbrr]

Euh ben

Code :

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

Exit sub

devrait te convenir

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

Code :

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

exit for

[RLX]

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

[comme de bien entendu]

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 :

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

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