Besoin d aide SVP

[Iro]

Bonjour a tous je suis debutant et je me debrouille comme je peux mais la je calls un peu !!!!!

je voudrai pouvoir insere des données qui sont inserer dans diferent (label , textbox , ....)d'un userform sur plusieur ligne en meme temps dans un fichier .txt

par exemple :

-1er ligne du .txt = label1.caption & label2.caption & textbox1.text & ......
-2é ligne du .txt = label3.caption & label4.caption & textbox2.text & ......
-3é ligne du .txt = ...........
-4é ligne du .txt = ...........
etc etc etc

j ai deja le code suivant mais je ne peux entrer qu une seul ligne a la foie qui me permet d'en inserer une a la fois dans le meme fichier mais la j ai une trentaine de ligne a mettre d un coup et j aimerai pas avoir un code trop volumineux


voici le code que j ai deja pour que vous voyer ce que je veux a peu pret
merci d avance

' Construction de la ligne à écrire
'
Dim ligne As String, sep As String
sep = Chr$(9) ' tabulateur
ligne = "[ " & Label13.Caption & "-" & _
Label14.Caption & "-" & Time & " ]" & sep & "Ref: " & _
Label5.Caption & sep & "Produit: " & _
Label6.Caption & sep & "Commander: " & _
Label8.Caption & sep & "Prx (Unité): " & _
Label9.Caption & " € " & sep & " Total : " & _
Label10.Caption & " €"

' Construction du nom complet du fichier à écrire
'
Dim nom_fic As String, dateJour As Date, repert As String
dateJour = CDate(Label14.Caption)
nom_fic = Label13.Caption & "_" & Year(dateJour) & "." & Right("0" & Month(dateJour), 2) & "." & Right("0" & Day(dateJour), 2)
repert = "D:\sauvegarde commande\"
nom_fic = repert & nom_fic & ".txt"
' Mise à jour du fichier
'
Dim hdlFile As Integer
hdlFile = FreeFile()
Open nom_fic For Append As #hdlFile
Print #hdlFile, ligne
Close #hdlFile

 

[Iro]

J ai trouver la solution je vous remerci