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

Bonjour a tous,

Pour être bref , je travail sur un code en vba qui fait certaines choses avant le rafraichissement et aprés le rafraichissement.
J'ai donc 2 subroutines after et before refresh.
J'aimerais savoir s'il y a une erreur avant ou aprés le rafraichissement du document en utilisant un on error GoTo erreur... code ... Erreur : Msgbox " erreur lors de ... "

Coment pourrais je faire pour tester les erreurs dans les deux subroutines sans devoir taper deux fois le même code...?

Merci pour vos reponses

A voir également:

On error go to vba
128 gb en go ✓ - Forum Matériel & Système
Go to shopping avis - Forum Consommation & Internet
Fan error lenovo ✓ - Forum Refroidissement
Qwerty to azerty - Guide
Différence entre 1GB et 1Go ? - Forum Mobile

2 réponses

Réponse 1 / 2

Utilisateur anonyme
9 déc. 2011 à 14:17

Bonjour,

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

yofa Messages postés 1093 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 1 mars 2013 207
15 déc. 2011 à 09:26

Merci, celà a l'air de fonctionner parfaitement~
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

Réponse 2 / 2

Utilisateur anonyme
Modifié par Lupin.PC4 le 16/12/2011 à 13:13

re:

Public Sub ApresTraitement() 

    On Error GoTo Err_Apres_Traitement 
     
    DoEvents 
    '... 
     
Exit_Apres_Traitement: 
    Exit Sub 
     
Err_Apres_Traitement: 
    Call GestionErreur(Err) 

End Sub 
'

La ligne [ Exit_Apres_Traitement: ] est un label, il s'agit en fait
d'un point d'entrée, tout comme la ligne [ Err_Apres_Traitement: ]

Dans le détail, nous pourrions avoir quelque chose comme :

Public Sub ApresTraitement() 

    On Error GoTo Err_Apres_Traitement 
     
    Dim strMaValeur As String, strTexte As String 
    Dim strReponse As String 
     
    strTexte = "" 
    strMaValeur = "" 
    DoEvents 
    '... 
     
Exit_Apres_Traitement: 
    strReponse = strTexte & strMaValeur 
    If (strReponse <> "") Then 
        MsgBox strReponse 
    End If 
    Exit Sub 
     
Err_Apres_Traitement: 
    strTexte = "Erreur rencontrée, traitée et corrigée" & vbCrLf 
    strMaValeur = GestionErreur(Err) 
    GoTo Exit_Apres_Traitement 

End Sub 

Function GestionErreur(pErr As Variant) As String 

    GestionErreur = pErr.Description 

End Function 
'

Cdt

Lupin

yofa Messages postés 1093 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 1 mars 2013 207
18 déc. 2011 à 22:23

Merci pour les informations! En tout cas ton aide m'a été plus qu'utile!

Discussions similaires

Erreur d'execution 91 sous Excel/VBA

VBA/Excel Instruction: On Error Resume Next

VBA erreur 1004

VBA recherchev** dans feuilles autre classeur

vba bouton comande changement couleur au clic

Macro, excel, rechercher une valeur

Discussions similaires

Newsletters