Erreur sur fonction : For Output

Question

Bonjour,
Sur un portable dans un code VBA j'ai une erreur sur la ligne :
Open "C:	emp	oto" For Output As #2    (Fichier inexistant)

Alors que sur d'autre ordinateur il n'y a pas de soucis (comme si il y avait un problème de droit sur le répertoire ce qui n'est pas le cas)

Version Microsoft Visual basic 6.3

Si quelqu'un a la réponse cela m'aiderait bien

Merci

JCG

cs_casy · Answer

Puisque ce n'est pas un problème de droit, le fichier est peut-etre déjà utiliser par un autre process.

Ou alors le répertoire n'existe pas

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

Quel est le message d'erreur ?

Termines-tu bien ton ouverture/écriture par un Clis # 2 ?

jmfmarques · Answer

pardon lire Close # 2, bien sur.

cs_Jack · Answer

Salut JC
Quand on ouvre un fichier, on spécifie un numéro d'ordre (le #2).
Si ce numéro est déjà utilisé, c'est à dire que tu as déjà fait un Open avec ce numéro ET que tu ne l'as pas refermé, tu as une erreur.
La méthode a adopter est de laisser VB décider du numéro à utiliser (à faire avant de faire le Open) :
Dim ff As Integer
ff = FreeFile
Open "C:\Temp\Toto.txt" For Output #ff
...
Close #ff
Sinon, comme l'a dit jmfmarques, vérifie que tu avais bien fermé le précédent fichier ouvert avec ce numéro #2 car ma solution ne résoud pas tout, il faut être méticuleux.

Conseil : Essaye de mettre des extensions à tes fichiers (Toto.txt), sinon, tu auras des problèmes pour les ouvrir avec d'autres logiciels

Sinon, précise nous quelle erreur (numéro et texte) tu obtiens. La solution diffère selon l'erreur

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_casy · Answer

Pour etre sur de fermer tous les fichiers, au lieu d'utiliser Close #n°du fichier, il faut utiliser Close tout seul.

Close tout seul, ferme tous les fichiers préalablement ouverts avec une instruction Open. Au moment de l'utilisation, il faut etre sur de ne plus avoir besoin de garder des fichiers ouverts. 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Erreur sur fonction : For Output

5 réponses

Votre réponse

Discussions similaires