On error goto

[ninou58]

Re bonjour,
Petit souci, est-il possible avec un on error goto de stopper tout simplement la macro.
erreur:
Exit sub
mais ca arrête seulement ce module alors que moi je veux que ca arrête complètement de tourner.

Est ce possible?

Merci d'avance

 

[PascalXLD]

Re

T'inquiètes le fait de masquer le code empeche juste de pouvoir faire debugage. Tu n'as que le bouton Fin d'actif

 

[ninou58]

En faite la, quand je veux allez dans mon code (par l'icone de VB en faut) il faut que je mette mon mot de passe, moi je voulais juste que cela masque le bouton debugage.
Parce que si je met un mot de passe, je peux être sure que moi je m'en souviendrais pas et les informaticiens non plus.

Possible? sans mot de passe?

 

[_Thierry]

Bonjour à tous,

Je reprends tout à fait mon ami José, pour la gestion d'erreur... Voici un autre exemple

Sub MoiJeGereLesErreursNonMais()
Dim WS As Worksheet
Dim x As Byte

On Error GoTo ErrorHandler
Worksheets('UneFeuilleQuiNexistePas').Activate
ThisWorkbook.SaveAs 'Z:\\\\\\\\UnChemin\\\\\\\\AlaNoix\\\\\\\\BlahBlah.xls'
x = 5000


ErrorHandler:
Select Case Err.Number
Case 6
    MsgBox 'Déclaration Byte y a pas bon ' & Err.Description
Case 9
    MsgBox 'La feuille y a pas bon ' & Err.Description
Case 1004
    MsgBox 'Le chemin y a pas bon ' & Err.Description
Case Else
MsgBox 'Une erreur non gérée s'est produite, téléphoner à Thierry !! lol' & _
        vbCrLf & Err.Number & ' ' & Err.Description
End Select

End Sub

Et sinon, oui je partage aussi un petit peu ton avis Michel, mais c'est aussi de notre faute, il faut venir 'sévir' dans les fils, mais c'est vrai qu'on a pas quatre mains ! Car sinon tout ce qui est dit ici peut être pris pour du bon pain...

Bon Aprèm

[ol]@+Thierry[/ol]

 

[PascalXLD]

Re

A première vue non pour protéger il faut un mot de passe

Perso pour toutes mes applis je mets toujours le même comme cela mon collègue le connait et mes users ne vont pas faire un tour dans le code. Mais bon c'est qu'une idée

 

[PascalXLD]

RE

LOL Thierry on a peut-être pas 4 mains; moi j'en connais même qui en ce moment en ont qu'une de valuable !!!!! 🙂 :woohoo: :lol:

Bonne journée

 

[ninou58]

Re,
Et bah, je n'en attendais pas tant 🙂
Le souci c'est qu'ici je suis en stage, donc aps de collègue :unsure: .
Bon je vais laisser avec mot de passe et en informer les supérieurs desfois que...
Bon j'ai nouveau souci mais sur autre fil 😉 (ce que je suis chiante quand je m'y met)

Sur ce bonne journée.
Et merci pour votre aide.

 

[Marc_du_78]

Bonjour à tous,

2tatnt débutant en vba, j'ai suivi ce fil pour mon instruction.
Thierry, tu écris :
Case Else
MsgBox 'Une erreur non gérée s'est produite, téléphoner à Thierry !! lol' & _
vbCrLf & Err.Number & ' ' & Err.Description
Mais je ne vois pas ton numéro de téléphone. Un oubli sûrement, mais alors que faire...

Bonne fin de journée.

 

[PascalXLD]

Re

Bouges pas marc je te le donne

alors Thierry

06 .. .. .. ..

Allez faut pas réver je le garde pour moi 😛 B)

 

[_Thierry]

Re à tous

Arf et oui mon cher Pascal, une main et un quart de l'autre main pour moi en ce moment.

Pour Marc, dans mon bureau ils ont mon numéro (hélas) lol 😉

Pour ninou, l'exemple proposé par José et moi-même, ne basculeront en aucun cas l'utilisateur vers une fenetre VBE et ton code, Le Case Else 'gérera' tout ce que tu n'as pas prévu, et il n'y aura pas de popup de débuggage.

C'est une alternative plus simple et moins risquée si tu laisses des mots de passes en tant que stagiaire.

Bonne Fin d'Aprèm
[ol]@+Thierry[/ol]

 

[Marc_du_78]

Merci Pascal déjà deux chiffres en moins à chercher.

 

[ninou58]

Re,
🙂
Comment ca helas? Heureusement que ton numéro est affiché dans leur bureau! lol
Bon je vais regarder ce que tu as mis mais le souci, c'est que là,il me reste peu de temps, et je n'ai pas trouvé toutes les erreurs.
C'est sur qu'avec le Case else, je peux les faire sortir sans soucis, donc je vais y regarder de plus près.

Encore merci!
Au faite j'oublierais pas de mettre :
Case Else
MsgBox 'Une erreur non gérée s'est produite, téléphoner à Thierry !! lol' & _
vbCrLf & Err.Number & ' ' & Err.Description
Je leur dirai que tu es ici lol 😉

Bonne fin de journée

Message édité par: ninou58, à: 12/04/2006 15:48

 

[ninou58]

Re,
JE n'arrive pas à reproduire ton exemple Thierry.
J'ai fait un nouveau module appelé gestiondeserreurs.
Mais je ne sais pas comment faire, pq case 6?9?
Je suis un peu coincée car aucune idée de comment faire.
Vous pouvez m'aider?
merci

 

[_Thierry]

Re Ninou, le Fil, Le Forum


Pour les erreurs mon ami Vériland avait tenté de les lister sur sa page WIKI

Lien supprimé

(Faire un refresh de page si il y a une erreur d'affichage)

Sinon, en mettant en commentaire le 'On Error Goto ErrorHandler' le Popup 'officiel' du débuger donne le numéro d'erreur.

Bon courage
[ol]@+Thierry[/ol]

 

[_Thierry]

Re

Attention, en lisant ceci 'J'ai fait un nouveau module appelé gestiondeserreurs' j'ai un doute quant à ta compréhension du fonctionnement d'un gestionnaire d'erreur...

C'est à l'intérieur de chaque Sub (sujette à un risque d'erreur, utilisateur, ou réseau) ue tu dois mettre en place le gestionnaire...

Sub TheBigMacro()
Dim Toto As Integer
Dim Zaza As Double

'DEBUT DE MACRO
On Error Goto ErrorHandler

For Toto = 1 to 1000
Blah blah blah... le reste des codes...
Blah
Blah
Blah
etc etc etc

'FIN DE MACRO
ErrorHandler:
Select Case Err.Number
Case 6
MsgBox 'Déclaration Byte y a pas bon ' & Err.Description
Case 9
MsgBox 'La feuille y a pas bon ' & Err.Description
Case 1004
MsgBox 'Le chemin y a pas bon ' & Err.Description
Case Else
MsgBox 'Une erreur non gérée s'est produite, téléphoner à Thierry !! lol' & _
vbCrLf & Err.Number & ' ' & Err.Description
End Select
End Sub


...
OK tu comprends ?
[ol]@+Thierry[/ol]

 

[Hervé]

bonjour tout le monde 🙂

ninou, je me permet de profiter de ton post pour poser une question à l'ami thierry.

je te prie de m'en excuser par avance.

thierry, pourrait-on imaginer une macro dans un module pour gérer les erreurs ?

en clair, au lieu de faire une gestion pour chaque macro, placer ce code dans un module spécifique.


DEBUT DE MACRO
On Error Goto ErrorHandler



'FIN DE MACRO
ErrorHandler:
appelmacrodansmodulespecifique.

et dans ce cas comment sont gérer les 'retours' d'erreur de type resume ou resume next ?

d'avance merci 🙂

salut