Erreur VBA (excel 2003) à l'ouverture d'un fichier en écriture

Question

J'ai une erreur pour ouvrir en écriture un fichier texte

FichierTXT = "D:\essai.txt" 'chemin et nom à modifier

If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT 'Supprime le fichier s'il existe déjà

Open FichierTXT For Output As #1

sur Open :
erreur d'exécution '53':
Fichier introuvable

si j'arrive à exécuter l'open, l'instruction "Print" qui va écrire le fichier provoque une erreur aussi.

Ces instructions marchent sur d'autres PC avec la même version ou une version antérieure.

J'ai essayé de désinstaller office et de le réinstaller.
L'erreur persiste.
Quelqu'un peut-il m'aider?

Merci

Julien237 · Answer

Salut,
Mets un peu un point d'arrêt sur l'instruction Open, et dis nous ce que contient la variable FichierTXT à ce moment.

Julien.

lucoli · Answer

Bonjour,


J'ai déjà fait cet manip. Il y a bien ce que j'y ai mis, c'est à dire "D:\essai.txt".


J'ai essayé avec d'autres libellés et/ou unités de disques en ligne. Ca donne la même erreur.
Lucoli

cs_casy · Answer

Essaye avec ceci, peut-etre :

NumFile = FreeFile
Open FichierTXT For Output As #NumFile

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Julien237 · Answer

As-tu bien un close à la fin du code ?
Tu vois style tu exécute ton truc une fois, ca marche, pis le fichier reste ouvert et après ca marche plus... 

Julien.

us_30 · Answer

Bonjour,

Dans ce dernier cas, l'instruction RESET permet de fermer tous fichiers ouverts.

Amicalement,
Us.

Erreur VBA (excel 2003) à l'ouverture d'un fichier en écriture

5 réponses

Votre réponse

Discussions similaires