Gestion erreur

bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004 - 28 mai 2004 à 13:43
bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004 - 2 juin 2004 à 15:49
Bonjour
J'ai une petite question, peut etre idiot mais bon.

Voila :
peut on mettre un 'on error goto etiquette' de tel sorte que ce soit actif sur tout le programme, pour en quelque sorte "protéger " tout le programme d'un plantage du à une erreur.

Merci si vous avez la réponse.

6 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
28 mai 2004 à 13:48
Si ton prg commence via une Sub Main() et que tu met ce On Error dedans oui

Christophe R.
0
bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004
28 mai 2004 à 13:55
Non il commence par une MDI.
Possible qd mm ? ( je pense pas mais on sait jammais )
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
28 mai 2004 à 14:00
Si tu le démarres par une Sub Main() et ta sub main lance la MDI, et basta !!

Christophe R.
0
bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004
28 mai 2004 à 16:38
Merci !!

Eu, hum, on la crée ou la procédure main ?
( dsl je conais pas trop vb )
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004
28 mai 2004 à 16:39
Arf ds un module

J'aurais du chercher plus longtemp.

Merci encore pour la réponse !
0
bigboy2g15 Messages postés 66 Date d'inscription mercredi 31 mars 2004 Statut Membre Dernière intervention 3 juin 2004
2 juin 2004 à 15:49
Ca ne marche pas.

Voici le code :

Sub main()

On Error GoTo prob_general
Menu.Show

Exit Sub

prob_general:
Call MsgBox("Problème : '" & adr_fic & vbLf & "'  N° erreur:" & Err.Number & vbLf & Err.Description)
End Sub


J'applique bien la solution proposée, mais les erreurs ne sont pas prise en compte.
Si quelqu' un sais pourquoi, merci.
0