On error goto
- Initiateur de la discussion ninou58
- Date de début
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
T'inquiètes le fait de masquer le code empeche juste de pouvoir faire debugage. Tu n'as que le bouton Fin d'actif
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?
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?
Bonjour à tous,
Je reprends tout à fait mon ami José, pour la gestion d'erreur... Voici un autre exemple
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]
Je reprends tout à fait mon ami José, pour la gestion d'erreur... Voici un autre exemple
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]
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
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
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
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
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.
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
XLDnaute Accro
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.
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.
Re
Bouges pas marc je te le donne
alors Thierry
06 .. .. .. ..
Allez faut pas réver je le garde pour moi B)
Bouges pas marc je te le donne
alors Thierry
06 .. .. .. ..
Allez faut pas réver je le garde pour moi
B)
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]
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
XLDnaute Accro
Merci Pascal déjà deux chiffres en moins à chercher.
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
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
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
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
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]
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]
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]
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é
XLDnaute Barbatruc
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
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
Discussions similaires
- Question
- Résolu(e)
- Résolu(e)
- Question
- Résolu(e)
