On error go to [VBA] Résolu

Question

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


Configuration: Windows 2003 / Internet Explorer 8.0

Utilisateur anonyme · Accepted Answer

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

Utilisateur anonyme · Answer

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

On error go to [VBA]

2 réponses

Discussions similaires

Newsletters