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

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

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 84 internautes ce mois-ci

cs_hassen 338 Messages postés mardi 28 janvier 2003Date d'inscription 4 novembre 2008 Dernière intervention - 29 juil. 2005 à 19:02
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
Zlub 815 Messages postés mercredi 11 octobre 2000Date d'inscription 29 septembre 2010 Dernière intervention - 29 juil. 2005 à 19:02
0
Merci
Salut,

regardes la variable Err



Exemple :



Sub toto()



On Error Goto erreur



'

' code

'



Exit sub



erreur:

msgbox Err.description

End sub

++

Zlub
Gobillot 3140 Messages postés vendredi 14 mai 2004Date d'inscription 31 mars 2015 Dernière intervention - 29 juil. 2005 à 19:05
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.