Private Sub Command1_Click() Text1 = "Salut" End Sub Private Sub Command2_Click() Text1 = Text1 & " au revoir" End Sub Private Sub Text1_Change() 'On note dans le fichier l'heure et le text1 a chaque changment Open App.Path & "/historique.txt" For Append As #1 Print #1, Now & "," & Text1 Close #1 End Sub