fichier texte déja ouvert

Question

bonjour, je suis en train de faire un programme qui traite une liste de fichier et met petit a petit des infos dans un tableau. 

Le problème c'est que quand il tombe sur un fichier qui est déja ouvert, il donne une vieille erreur et ça empeche de continuer. 

Comment faire pour qu'il ecrive juste "fichier déja ouvert" dans mon tableau et qu'il continue tout seul.

Pareil à la fin quand je demande à l'utilisateur comment il veut apeller le tableau, si celui ci existe et est déja ouvert, je voudrais que ça lui mette d'en choisir un autre, au lieu de tout bloquer.

Merci d'avance

                                    Johanna

Renfield · Answer

ajoutes simplement un gestion d'erreurs :


sub CréerTableau()
     dim Txt
      on error goto GestErrors
      '.....................
      for.................
      Texte = NomFichier
Suite:
           Ajouter Texte
      next ...........
      '...................    
exitsub
GestErrors:
   if err.number  = XXX then 'N° de l'erreur "fichier ouvert"
       txt = "Fichier deja ouvert" 
       goto Suite:
   endif
end sub


de sorte que , si une erreur survient , et que celle-ci porte le N° de l'erreur sus-désignée , on place le message d'erreur dans la variable a afficher, et on continue

-----------------------------------------------------------------------
By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

cs_joina · Answer

mais tu connais pas le code erreur qui correspond a "fichier déja ouvert" ?

Renfield · Answer

non , mais c'est pas grave , tu le demandes a VB !!!

en clair , quand un erreur surviens , le message qui t'avertit te le donnes.... 

au pire , vu qu'il y a maintenant une gestion d'erreurs , il te suffit de regarder la valeur de err.number , des que l'erreur s'est declenchée..... ce test est purement formel !! au pire , tu l'enleve , il t'incombe de t'assurer que d'autres type d'erreurs ne surviennent pas......
-----------------------------------------------------------------------
By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

cs_joina · Answer

J'en reviens pas, j'y avais pensé moi même, pour une fois que j'ai une idée pas trop con....

Renfield · Answer

lol

c'est pas grave , ce sont des choses qui arrivent....

comme quoi il faut que tu te fies a tes impressions......

allez , bon stage et bonne prog

-----------------------------------------------------------------------
By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

z980x · Answer

Meme si c'est un peu tard, le numero d'erreur d'un fichier d'aerreur, c'est l'erreur 55
Voila !

cs_phebus709 · Answer

salut johanna je crois que j'ai le meme probleme que toi!
alors je me demande si tu peux m'envoyer ton projet !et merci!

Fichier texte déja ouvert

7 réponses

Discussions similaires