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.