Boucle d'ouverture de fichier

[Jlou]

Bonjour amis exceliens

une fois n'est pas coutume j'ai besoin d'aide

J'essaie desesperemment faire le code VB de ce probleme

J'ai une boucle dans laquelle je demande l'ouverture d'un fichier, je souhaite si ce fichier n'existe pas revenir en debut de boucle et ceci autant de fois que j'ai des variables dans ma liste.
avec un on error go to il ne passe qu'une fois
et la je craque


merci de votre aide

a bientot j'espere

jlou

 

[Jacques87]

Re : Boucle d'ouverture de fichier

Bonjour Gilou

J'ai rtegardé ton fichier et il me semble que tes "error goto A", "error goto B" et "error Goto C" ne fonctionnent pas (sauf erreur de ma part)

Pourquoi ne pas faire une analyse d'erreur glogale :
On error Go erreur
en fin de code
erreur :
analyse de l'erreur en fonction de tes besoins

Cordialement

 

[lapix]

Re : Boucle d'ouverture de fichier

Bonjour,

Comme Jacques.
Je ne suis pas sur que l'on puisse travailler avec plusieurs on error dans la meme procedure.

Moi je mettrais on error resume next et ensuite if err.number= ... then

 

[Luki]

Re : Boucle d'ouverture de fichier

Bonjour le fil,

Je dis pareil:
On error goto A
On error goto B
On error goto C

équivaut à dire : On error goto C

donc si tu veux aller à un endroit donné en fonction de l'erreur, tu peux passer par un gestionnaire général, par ex : on error goto Gesterr

1)Gestion en fonction du numéro d'erreur

Gesterr:
select case err.number

case is=1
goto A
case is =2
goto B
case else
goto C
​

end select

2) Pour une gestion en fonction d'une situation, tu peux paser par une variable.
Par ex, avant une boucle: VarError="A"
puis avant une autre boucle : VarError="B"


et dans le gestion d'erreur:

Gesterr:
select case VarError

case is="A"
goto A
case is ="B"
goto B
case else
goto C
​

end select

A savoir, il faudra probablement ajouter un Err.clear dans la gestion d'erreur pour la remettre à zéro.

A+

EDITION

Tu peux remplacer le "goto A" par "resume A" dans le gestionnaire d'erreur.

 

[Matrice_Spirit]

Re : Boucle d'ouverture de fichier

Bonjour

J'avais le meme probleme que toi, et je n'ai pas vu la solution, mais l'ayant trouvé, je t'y répond. Cela pourra être utile à d'autre.

Lorsque la gestion de l'erreur est faite, il faut mettre l'instruction
"Resume" (pour que la procedure continue à l'instruction qui a provoqué l'erreur)
"Resume Next" (pour que la procedure continue à l'instruction suivant celle qui a provoqué l'erreur)
"Resume (une étiquette)" (pour que la procedure continue là où on le désire)