[VBA-E] Structure de On Error

Bonjour tous le monde,

Voici mon problème.
J'ai un bout de code qui ouvre un classeur Excel si le chemin est correct et qui, si le chemin n'est pas correct, ouvre une boite de dialogue qui me permet de spécifier un nouveau chemin:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

' Ouverture du classeur "Archives" On Error GoTo ErrorHandler   Again: Set obj = Workbooks cheminarc = Feuil1.path + "\Archives.XLS" obj.Open cheminarc Workbooks("Archives.xls").Activate   ErrorHandler: Conf.Show GoTo Again     ' Recupération du nombre de feuilles du classeur "Archives" nbshmax = Workbooks("Archives.xls").Sheets.Count

---

J'aimerais que dans le Error Handler s'executent ces deux lignes de code:

Code:

---

1 2	Conf.Show GoTo Again

---

Or seule la première s'éxecute :| , comment puis je faire faire pour mettre l'équivalent de parenthèses ou qqc comme çà?...

Merci.

Je ne vois pas d'err.clear mais, ce que je vois surtout, c'est que, erreur ou pas de surcroît, je vais toujours passer par l'étiquette Again, arriver (erreur ou non) à l'étiquette ErrorHandlet et... passer par la 1ère instruction qui suit "conf.show"... pour aller à l'Etiquette Again... et recommencer ainsi à l'infini !!!

Justement, c'est tout l'objet de ma question, je veux que l'instruction

Code:

---

Goto Again

---

soie comprise dans le ErrorHandler comme ça dès qu'il n'y a plus d'erreur le programme continu après le Goto Again

Le problème est de pouvoir faire éxecuter les 2 instructions

Code:

---

1 2	Conf.Show GoTo Again

---

quant il y a erreur et de passer directement à la ligne

Code:

---

nbshmax = Workbooks("Archives.xls").Sheets.Count

---

s'il n'y a pas d'erreur.

Quant au err.clear, je ne comprends pas ce que c'est.

Merci quand même...

Mais oui, jmfmarques a (encore) raison:
Tu dois séparer tes étiquettes du reste du code "principal". Là tu passes dans ton ErrorHandler même si tu n'as pas d'erreur.
Tu dois avoir une structure du type

Code:

---

1 2 3 4 5 6 7

Sub MaProcedure() On Error Goto ErrorHandler ... du code... Exit Sub Error Handler: ...Code en cas d'erreur End Sub

---

Le err.cleat n'existe peut-être pas sous VBA. Mais alors, sous VBA, ce doit être err = 0 ou error = 0... ou quelque chose comme çà... pour éviter de continuer l'appli avec une erreur non nulle.

OK, autant pour moi jmfmarques, je n'avais pas compris le fonctionnement exact de On Error et des étiquettes.

Je vais donc essayer comme tu l'as dit Megaxel.

Merci à tous les deux.

C'est vrai que là ça marche beaucoup mieux.

Merci et bonne fin de journée. :merci: