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

Messages postés
2
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
17 septembre 2006
-
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
-
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

5 réponses

Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
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.
Messages postés
2
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
17 septembre 2006

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
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
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 #
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
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.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Bonjour,

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

Amicalement,
Us.