URGENT!!!

Résolu
Signaler
Messages postés
96
Date d'inscription
lundi 20 novembre 2000
Statut
Membre
Dernière intervention
11 juillet 2006
-
Messages postés
96
Date d'inscription
lundi 20 novembre 2000
Statut
Membre
Dernière intervention
11 juillet 2006
-
j'ouvre un fichier avec
Open fichier_polygone For Input As #2

j'aimerai détecter s'il y a eu une erreur lors de l'ouverture afin de la traiter.
Commant faire????

Merci!!

4 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
la seule erreur possible c'est que le fichier n'existe pas.









If Dir(fichier_polygone) = "" then

MsgBox "Fichier Absent"

Else

Open fichier_polygone For Input As #2

- - - - - - - - - - -

Close #2

End If

Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
sub toto()
on error goto GEST_ERR
Open fichier_polygone For Input As #2
...

exit sub
GEST_ERR:
msgbox Err.number & " " & err.description
err.clear 'reinitialiser l' erreur (je suis pas sur de la syntaxe)
end sub
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
en reponse a Gobillot
non, le fichier peut aussi etre ouvert en mode exclusif
le numero de fichier peut deja etre utilisé
si le fichier est sur un lecteur reseau, il est peut etre pas accessible
....
Messages postés
96
Date d'inscription
lundi 20 novembre 2000
Statut
Membre
Dernière intervention
11 juillet 2006

Merci bien!!!!!!!!J'ai réussi....