Discussion :

[pokemoon94]

Bonjour

Je souhaiterais créer un fichier texte mais je ne trouve pas la solution.

Voici le début de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Mon_texte as String
 
Mon_texte = "Coucou comment on fait"

j'ai essayé avec TransferText mais c'est pas la bonne méthode

J'ai essayé en créant un objet NotePad mais j'y arrive pas.

chui un peu paumé

En résultat je voudrais un fichier en .txt avec le texte de ma variable.

D'avance merci pour vos conseils.

[shwin]

salut voici comment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim r As FileSystemObject
Set r = New FileSystemObject
r.CreateTextFile "C:\test.txt"

Tu dois avoir la référence Microsoft script runtime

[pokemoon94]

Merci.

Mais comment j'inscris mon texte dans le nouveau fichier ?

D'avance Merci.

[shwin]

voici comment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim r As FileSystemObject
Set r = New FileSystemObject
r.CreateTextFile "C:\test.txt"
 
Open "C:\test.txt" For Output As #1
Print #1, "test"
Close #1

[ypicot]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim r As FileSystemObject
Set r = New FileSystemObject
r.CreateTextFile "C:\test.txt"

A quoi te sert le FileSystemObject ?
Chez moi, ca marche tres bien sans.

Par contre, j'aurais tendance à utiliser FreeFile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim NumFic As Integer
 
NumFic = FreeFile
Open "c:\test.txt" For Output As #NumFic
Print #NumFic, "nom truc à écrire"
Close #NumFic

Accessment,

Yvan

[pokemoon94]

Merci de votre aide. En cherchant bien j'ai trouver ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fichier as FileSytemObject
Dim Texte as TextStream
 
Set Fichier = CreateObject("Scripting.FilesystemObject")
Set Texte = Fichier.CreateTextFile ("c:\test.txt")
 
Texte.WriteLine = " Ma première ligne"
Texte.WriteLine = " Ma seconde ligne"
 
Etc .....
 
 
Texte.close