ecrire dans des fichier .txt

[flo]

Bonjour,

voila je voudrais sous Excel, en VBA, crée une fenetre de texte dans lesquels on saisie un chiffre (par ex 12) et écrire la valeur saisie (ici 12)dans un fichier .txt. Quel commande dois-je utiliser?

D'avance merci

 

[arnaud]

salut 🙂,

exemple tiré de l'aide :

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine ("Ceci est un test.")
a.Close

 

[flo]

merci, mais


imagine j'ai 2 fentres distinctes dans lesquels je saisie du texte, par ex

textbox1 : je saise 12
textbox2: je saisie 36

je voudrais écrire dans un fichier .txt toutes les valeurs saisies

ex *.txt
12
36

est ce possible de les écrires en lignes?

 

[arnaud]

re,

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("c:\fichiertest.txt") = False Then
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
Else
Set a = fs.OpenTextFile("c:\fichiertest.txt", 8, -2)
End If
a.WriteLine (TextBox1.Value)
a.WriteLine (TextBox2.Value)
a.Close

si ce que tu veux dire par 'en ligne' c'est a la ligne.

 

[flo]

merci ca marche mais,
comment faire pour écrire 'sur la même ligne' et pas sur deux lignes différentes.

ex.
12 23 36

et pas
12
23
36

 

[arnaud]

re,

a.WriteLine (TextBox1.Value & " " & TextBox2.Value ) par exemple

 

[flo]

MERCI, MERCI et encore merci

@+
flo

 

[dut-dut]

Et meeeeeeerrrrcccciiiiiiiiii !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

;-) (dut-dut content)