Discussion :

[MiXinG]

Bonjour à tous,
Je souhaite traiter les erreurs à l'aide d'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error goto Montraitement

J'aimerais tout de même savoir d'où provient l'erreur et l'afficher dans un msgbox par exemple, existe t il un moyen de récupérer l'erreur?

Merci d'avance!

[ucfoutu]

Bonjour,

Err est un objet et il a des propriétés ...

Exemple à main levée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim a As integer, b As Integer
  On error Goto toto
  a = 10 / 0 ' on provoque ici une erreur
  exit sub
toto:
  MsgBox Err & " ===>>" & Err.Description

[Krovax]

La ligne que j'utilise habituellement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Err <> 0 Then: MsgBox "Procédure Lenom :" & Chr(13) & "Erreur n°: " & Err.number & Chr(13) & "Description : " & Err.Description

Après si tu veux la ligne il faut regarder les tuto mais tes ligne doivent être numéroté. (fonction ERL)

Edit le lien pour la fonction ERL
http://silkyroad.developpez.com/VBA/...rreurs/#LIII-C

Bonjour Ucfoutu

[MiXinG]

Parfait c'est exactement ce que je voulais!
Merci beaucoup!

[LeForestier]

Bonjour,
Un petit exemple..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub GererErreur()
Dim a, B, msg
    'Forcer l'erreur
    Err.Raise 9
 
    MsgBox "Le N° de l'erreur est le " & Err & Chr(13) _
    & "Le libellé de l'erreur est... " & Error(Err)
    Err.Clear
End Sub

A+
Edit : Ah bon, j'ai un peu trop tarder..

[MiXinG]

C'est pas grave l'intention y était!
Merci beaucoup!