VBA - Open... For Output ... Print .. ne marche pas

Résolu
tri_yann Messages postés 124 Date d'inscription mercredi 23 novembre 2005 Statut Membre Dernière intervention 19 septembre 2013 - 23 mai 2006 à 09:35
luluthefirst Messages postés 106 Date d'inscription samedi 25 avril 2009 Statut Membre Dernière intervention 20 mars 2010 - 26 mai 2009 à 17:11
Bonjour,

Sur 1 PC en particulier, la syntaxe :

Open "C:\bidule.txt" For Output as #1
Print #1, "Bobo"

ne fonctionne pas correctement.

Quand le fichier "C:\bidule.txt" n'est pas déjà créé, il dit qu'il ne le trouve pas alors qu'il devrait le créer. Quand le fichier "C:\Bidule.txt" est déjà créé, il ne veut pas écrire dedans.

Savez vous pour quelle raison, cette syntaxe, testée et approuvée, ne fonctionne pas sur un pc en particulier ?

4 réponses

tri_yann Messages postés 124 Date d'inscription mercredi 23 novembre 2005 Statut Membre Dernière intervention 19 septembre 2013 3
23 mai 2006 à 21:21
J'ai les droits d'accès en écriture, car j'ai créé le fichier texte manuellement au même endroit.
Avec Append, le résultat est le même.Le fichier est déjà créé puisque Append est fait pour ajouter des lignes et le Open fonctionne.  Il plante sur le Print ( ou Write). Et c'est bien là le problème.
3
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
23 mai 2006 à 10:04
Bonjour,

As-tu les droits nécessaires pour écrire sur le disque ?

++ Moustachu
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 mai 2006 à 21:15
Salut,

Open "C:\bidule.txt" For Append As #1
Print #1, "Bobo"
Close #1

essai en remplaçant OutPut par Append

++
Mortalino
0
luluthefirst Messages postés 106 Date d'inscription samedi 25 avril 2009 Statut Membre Dernière intervention 20 mars 2010
26 mai 2009 à 17:11
Si tu veux, Output est fait pour REMPLACER une ligne ;) Append est fait pour CREER une ligne et Input est fait pour LIRE une ligne :)
0
Rejoignez-nous