Private Sub Quitter_Click()
Dim J As Integer
' On incrémente et on met le fichier à jour
Open ThisWorkbook.Path & "\infos.tmp" For Output As #2
If CheckBox1.Value = True Then
flagLine = 0
Else
flagLine = flagLine + 1
End If
If flagLine > nbLines Then flagLine = 1
Print #2, flagLine
For J = 1 To nbLines
Write #2, tablInfos(J)
Next J
Close #2
Kill fullFileName
Name ThisWorkbook.Path & "\infos.tmp" As fullFileName
WebBrowser1.Text = ""
Me.Hide
End Sub
Private Sub selection_évènement_Activate()
Dim J As Integer
Dim Info As String
fullFileName = ThisWorkbook.Path & "\infos.txt"
nbLines = 0
Open fullFileName For Input As #1
Input #1, flagLine
While Not EOF(1)
Input #1, Info
nbLines = nbLines + 1
ReDim Preserve tablInfos(nbLines)
tablInfos(nbLines) = Info
Wend
If Val(flagLine) > 0 Then
CheckBox1.Visible = True
CheckBox1.Value = False
WebBrowser1.Visible = True
WebBrowser1.Text = tablInfos(flagLine)
Else
WebBrowser1.Visible = False
CheckBox1.Visible = False
End If
Close #1
End Sub