Recuperer un message d'erreur vb [Résolu]

Messages postés
6
Date d'inscription
jeudi 3 février 2005
Dernière intervention
11 août 2005
- - Dernière réponse : cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
- 29 juil. 2005 à 19:07
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.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
3
Merci
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

Dire « Merci » 3

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

Codes Sources a aidé 98 internautes ce mois-ci

Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Dernière intervention
4 novembre 2008
0
Merci
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
815
Date d'inscription
mercredi 11 octobre 2000
Dernière intervention
29 septembre 2010
0
Merci
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
Dernière intervention
31 mars 2015
0
Merci
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.