VBA problème avec open for output et print#

mickadevelop Messages postés 55 Date d'inscription mardi 15 février 2005 Statut Membre Dernière intervention 4 juin 2010 - 10 févr. 2006 à 02:23
mickadevelop Messages postés 55 Date d'inscription mardi 15 février 2005 Statut Membre Dernière intervention 4 juin 2010 - 15 févr. 2006 à 14:42
Bonjour à tous,
Voila j'ai un problème pour écrire dans un fichier texte avec EXEL et vba.
Lorsque j'utilise le code suivant
open "D:\fichier1.txt" for output as #1
print #1, "Une phrase simple"
close #1

Une erreur s'affiche et si le fichier n'existe pas il me marque que le fichier n'existe pas ou que le chemin est mauvais. Si je créé un fichier fichier1.txt sur le D il me marque une erreur au niveau du print et dit que le mode d'access n'est pas bon.

Lorsque j'utilise ces meme ligne de codes sous vb6 il execute sans problème. La je comprend pas. Est ce que cela provient de moi ou de exel u d'une library ou dll ou de windows? Merci de m'éclairer à ce sujet. Faut il que je change de PC ou que j'apprenne à programmer sous VBA? :-)
Merci d'avance.

mickadevelop

3 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
10 févr. 2006 à 22:09
Bonsoir,
J'ai essayer sous Excel 2003 et celà fonctionne très bien.

jpleroisse
0
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 31
11 févr. 2006 à 06:12
bonjour

la synthaxe que tu utilises fonctionne chez moi ( Excel 2002 & WinXP )

sans garantie , tu peux essayer cette adaptation

Dim Cible As Integer
Cible = FreeFile
Open "C:\Fichier1.Txt" For Output As #Cible
Print #1, "Une phrase simple"
Close

bon week end
michel
0
mickadevelop Messages postés 55 Date d'inscription mardi 15 février 2005 Statut Membre Dernière intervention 4 juin 2010
15 févr. 2006 à 14:42
Bonjour,
Merci beaucoup pour les réponses. En résumé c'est un bug de VBA sur mon PC. Si quelqu'un à déja rencontré c genre de pb n'hésité pas à m'en faire part. Et si quelqu'un à la solution pour corriger ce problème n'hésiter surtout pas à me faire par de la solution :-) sans changer de PC bien sur lol.
Merci :-)
mickadevelop
0