On error go to [VBA]
Résolu/Fermé
yofa
Messages postés
1093
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
1 mars 2013
-
9 déc. 2011 à 13:07
yofa Messages postés 1093 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 1 mars 2013 - 18 déc. 2011 à 22:23
yofa Messages postés 1093 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 1 mars 2013 - 18 déc. 2011 à 22:23
2 réponses
Utilisateur anonyme
9 déc. 2011 à 14:17
9 déc. 2011 à 14:17
Bonjour,
Suggestion :
Cdt
Lupin
Suggestion :
Option Explicit Public Sub AvantTraitement() On Error GoTo Err_Avant_Traitement DoEvents '... Exit_Avant_Traitement: Exit Sub Err_Avant_Traitement: Call GestionErreur(Err) End Sub ' Public Sub ApresTraitement() On Error GoTo Err_Apres_Traitement DoEvents '... Exit_Apres_Traitement: Exit Sub Err_Apres_Traitement: Call GestionErreur(Err) End Sub ' Private Sub GestionErreur(ByVal pErr As Variant) If (pErr.Number = "1004") Then MsgBox pErr.Number End If End Sub '
Cdt
Lupin
15 déc. 2011 à 09:26
J'aurais néanmoins une quelque question pour comprendre un peu mieux le code ( votre code xD ) que j'utilise...
Exit_Apres_Traitement:
Exit Sub
A quoi sert la premiere ligne?
Merci pour votre aide!
Yofa