Réponse acceptée !
Bonsoir,
Place sur ta Form un CommandButton (propriété Name: cmdEnregistrer) et un TextBox (propriété Multiligne à True)
Private Sub cmdEnregistrer_Click()
'Création du fichier et enregistrement des données écrites dans le TextBox.
Open "C:\TonFichier" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
Dim texte, tout, crlf
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
'Ouverture et lecture du fichier
Open "C:\TonFichier" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
|