Salut,
Ben, j'ai fait un essai avec le code ci-dessous, et ma fois, avec un textbox en multilignes = True, cela fonctionne très bien....A toi d'essayer...!
Private Sub Command1_Click()
' Déclaration variables
Dim LFile As Integer
Dim sFileRep As String
' Demande un numéro de fichier non utiliser
' Et on définit le répertoire de destination et le nom du fichier
LFile = FreeFile
sFileRep = "C:\Toto.Txt"
' Ouvre le fichier et écrit
Open sFileRep For Append As #LFile
' Sauvegarde suivant le fichier donnée en param à la function
Print #LFile, Text1.Text
' Ferme le fichier(important)
Close #LFile
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin 