Private Sub CommandButton13_Click()
Dim TextLine As String
Dim MyFile As String
Dim IdFile As Integer
MyFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If MyFile = False Then
MsgBox "Vous n'avez pas sélectionné de fichier"
Exit Sub
End If
IdFile = FreeFile
Open MyFile For Input As #IdFile
Do While Not EOF(IdFile)
Line Input #IdFile, TextLine
' Mtext = Right(TextLine, 8, Len(TextLine) - 1)
Loop
Close #IdFile
End Sub