'mettre la propriété multiligne a true des textbox Private Sub Form_Load() 'test si le fichier existe "gestion erreur" If Dir(App.Path & "/fichier.txt", vbNormal) = vbNullString Then Exit Sub 'Lecture des données dans les textbox Dim T1 As String, T2 As String Open App.Path & "/fichier.txt" For Input As #1 Input #1, T1, T2 Close #1 Text1 = T1 Text2 = T2 End Sub 'Enregistrement dans le fichier lors de la fermeture de la form Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Open App.Path & "/fichier.txt" For Output As #1 Write #1, Text1, Text2 Close #1 End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question