créer des fichiers textes en boucle (URGENT)

Question

Bonjour,
J'ai 4champs texte :
txt1.Text txt2.Text txt3.Text txt4.Text
et un boutton dans un form1 par exemple.
...
je veux qu'à chaque fois que je clique sur le boutton,2fichiers similaires (*.doc) -nommés la chaine recuperé dans txt1.Text- soient crées 
et stockés dans 2 repertoires differents
(exemple : C:\azer\ & C:\qwer ) 
=> on doit avoir du texte du genre :
Nom : (txt2.Text)
Prénom : (txt3.Text)
Adresse : (txt4.Text)

.... une fois créés ces 2 fichiers, je pourrais avoir le droit de créer d'autres fichiers après avoir vider les champs text..
Merci d'avance

cs_NuNu · Answer

A défaut d'autres réponses, voici:

'------------------------------
'Ds section Code de Form1

Option Explicit

    Public fso As New FileSystemObject
    

Private Sub Command1_Click()
    On Error Resume Next
    
    Dim ficini As TextStream
    Dim chemin1 As String
    Dim chemin2 As String
    
    chemin1 = "C:" & Text1.Text & ".txt"
    chemin2 = "C:\Temp" & Text1.Text & ".txt"

    'créer fichiers
    Set ficini = fso.CreateTextFile(chemin1, True, False)
    ficini.Close
    Set ficini = fso.CreateTextFile(chemin2, True, False)
    ficini.Close
    
    'écrire ds fichier 1
    Set ficini = fso.OpenTextFile(chemin1, ForWriting)
    ficini.WriteLine "Nom : " & Text2.Text
    ficini.WriteLine "Prénom : " & Text3.Text
    ficini.WriteLine "Adresse: " & Text4.Text
    ficini.Close
    
    'écrire ds fichier 2
    Set ficini = fso.OpenTextFile(chemin2, ForWriting)
    ficini.WriteLine "Nom : " & Text2.Text
    ficini.WriteLine "Prénom : " & Text3.Text
    ficini.WriteLine "Adresse: " & Text4.Text
    ficini.Close
End Sub

'REMARQUE 
'j'utilise .txt et non .doc qui marche aussi, mais j'ai des bips qd je les ouvre.

Si qqn sait pourquoi.....

~~~ NuNu ~~~

chico79 · Answer

ça correspond à quoi le TextStream?
j'ai une erreur dessus
(user type defined not defined)
merci

cs_NuNu · Answer

Excuse !!!

j'ai oublié de dire qu'il fallait cocher "Microsoft Scripting Runtime" ds les références (menu Projet, Références).

Par contre, tu aurais dû avoir le même message d'erreur pour

"Public fso As New FileSystemObject"

N'oublie pas cette ligne ds le code. Sinon, ça ne marchera pas.

J'ai vu qu'on t'avait donné une autre façon de faire.

~~~ NuNu ~~~

Créer des fichiers textes en boucle (URGENT)

3 réponses

Discussions similaires