Discussion :

[skual]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jmfmarques]

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 !!!

[skual]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Conf.Show
GoTo Again

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Megaxel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jmfmarques]

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.

[skual]

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.

[skual]

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

Merci et bonne fin de journée.