On error go to [VBA]

Résolu

yofa Messages postés 1092 Date d'inscription Statut Membre Dernière intervention -
yofa Messages postés 1092 Date d'inscription Statut Membre Dernière intervention - 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 goto vba
Network error iptv - Forum Réseaux sociaux
Fan error lenovo ✓ - Forum Refroidissement
Network error ✓ - Forum Réseaux sociaux
Eespt technical error ✓ - Forum TNT / Satellite / Réception
L'indice n'appartient pas à la sélection vba - Forum VB / VBA

2 réponses

Réponse 1 / 2

Utilisateur anonyme

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 1092 Date d'inscription Statut Membre Dernière intervention 207

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

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 1092 Date d'inscription Statut Membre Dernière intervention 207

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

Discussions similaires

VBA recherchev** dans feuilles autre classeur

vba bouton comande changement couleur au clic

Macro, excel, rechercher une valeur

appliquer une pause dans une macro vba excel

Formule NBVAL sur prog excel VBA

cstr en vb

Votre réponse

Discussions similaires