Recuperer un message d'erreur vb

[Résolu]
Signaler
Messages postés
6
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
11 août 2005
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
salut a tous, lors de l'execution d'un programme vb me met une erreur et je voudrai faire un "on error resume next ou goto X" donc continuer comme si tou allai bien mai je veu pouvoir récupérer ce message d'erreur dans une variable pour pouvoir l'afficher a l'utilisateur. est ce que quelqu'un sait quelle fonction vb permet de resoudre mon probleme ??? merci d'avance, et si vou n'avai pa compri ce que je voulai faire dite le , j'aissairai de faire mieux.

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
Salut
Bah simplement en appliquant une structure standard de captage d'erreur :

On Error Goto MaGestionErreur
Debug.Print 2 / 0 ' ça, il va pas aimer
Exit Sub

MaGestionErreur:
MsgBox "Erreur " & CStr(Err.Number) & " - " & Err.Description
Resume Next ' repart à la ligne qui suit l'erreur

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
tu peut recupere l'erreur dans l'objet err

on error goto erreur

' TRAITEMENT

exit sub
erreur:
msgbox err.number & ":" & err.description

Hassen TUNISIE
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,

regardes la variable Err



Exemple :



Sub toto()



On Error Goto erreur



'

' code

'



Exit sub



erreur:

msgbox Err.description

End sub

++

Zlub
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
rien de plus à rajouter

sauf la simulation d'erreur et le Resume Next







Private Sub Command1_Click()



On Error GoTo ERREUR



Error (5)



MsgBox "suite du programme"



Exit Sub



ERREUR:

MsgBox Err.Description

Resume Next



End Sub


Daniel