Option Explicit
Dim UserLogin As String, DateHeureTchat As Date
Private Sub UserForm_Initialize()
UserLogin = Environ("USERNAME")
End Sub
Public Sub ContrôleChgt(ByVal H As Date)
If H <> DateHeureTchat Then
Open ChNomFTchat For Input As #1
Line Input #1, Me.TextBox1.Text
Close #1
DateHeureTchat = H
End Sub
Private Sub CommandButton1_Click()
Open ChNomFTchat For Output As #1
Print #1, Me.TextBox2.Text
Close #1
DateHeureTchat = FileDateTime(ChNomFTchat)
End Sub