Option Explicit
Private Sub ReadAllLines(ByVal sPath As String, ByRef aLines() As String)
Dim FF As Integer
Dim sBuffer As String
FF = FreeFile
On Error Resume Next
Open sPath For Input As #FF
sBuffer = Input(LOF(FF), #FF)
Close #FF
aLines = Split(sBuffer, vbNewLine)
End Sub
' exemple d'utilisation
Private Sub Form_Load()
Dim aMesLignes() As String
Dim i As Long
Me.AutoRedraw = True
Me.Show
ReadAllLines "a:\log.txt", aMesLignes
Me.Print (1 + UBound(aMesLignes)) & " lignes trouvées" & vbNewLine
For i = LBound(aMesLignes) To UBound(aMesLignes)
Me.Print aMesLignes(i)
Next i
End Sub