IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA excel] sortir d une appli VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Janvier 2003
    Messages
    604
    Détails du profil
    Informations forums :
    Inscription : Janvier 2003
    Messages : 604
    Par défaut [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 : 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 ?"

  2. #2
    Membre expérimenté Avatar de conconbrr
    Inscrit en
    Février 2006
    Messages
    198
    Détails du profil
    Informations forums :
    Inscription : Février 2006
    Messages : 198
    Par défaut
    Euh ben devrait te convenir

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

  3. #3
    RLX
    RLX est déconnecté
    Membre éclairé Avatar de RLX
    Inscrit en
    Octobre 2004
    Messages
    51
    Détails du profil
    Informations forums :
    Inscription : Octobre 2004
    Messages : 51
    Par défaut
    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

  4. #4
    Membre éclairé
    Inscrit en
    Janvier 2003
    Messages
    604
    Détails du profil
    Informations forums :
    Inscription : Janvier 2003
    Messages : 604
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA][EXCEL]Conversion d'une chaine en single
    Par Ania dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 29/11/2005, 17h28
  2. [VBA Excel] Ajouter, supprimer une ligne ou collone range
    Par loacast dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 22/11/2005, 15h53
  3. vba excel - Comment saisir une cellule sans faire entrer
    Par brethomeau dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 15/11/2005, 17h50
  4. VBA EXCEL - Sélection d'une ligne suivant saisie
    Par brethomeau dans le forum Macros et VBA Excel
    Réponses: 48
    Dernier message: 15/11/2005, 17h41
  5. [VBA Excel] Effacer rapidement une feuille
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 24/10/2002, 13h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo