Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk TextBox1.Text = OpenFileDialog1.FileName Lect(TextBox1.Text) End Sub Function Lect(ByVal chemin As String) dim lineread as string Dim sr As StreamReader = New StreamReader(chemin, System.Text.Encoding.Default) lineread = sr.ReadLine 'Lecture ligne par ligne ( a caser dans un do while) end function