emplacement sur une ligne de texte

Sub Bouton1_QuandClic()
Dim ligne As String
Dim l As Integer

Open ActiveWorkbook.Path & '\\\\\\\\' & 'test.txt' For Input As #1 ' a adapter
Do While Not EOF(1)
                Line Input #1, ligne
                If IsNumeric(Mid(ligne, 2, 1)) Then
                                l = l + 1
                                Sheets('outputs').Cells(l, 1) = extraire(LTrim(ligne))
                End If
Loop
Close #1

End Sub
'_________________________________________________
Public Function extraire(t As String) As String
Dim tablo()
Dim i As Byte

For i = 1 To Len(t)
                If Mid(t, i, 1) = ' ' Then
                                x = x + 1
                                ReDim Preserve tablo(1 To x)
                                tablo(x) = i
                End If
Next i

extraire = Mid(t, tablo(2) + 1)
End Function

Cliquez pour agrandir...

Sub Bouton1_QuandClic()
Dim ligne As String
Dim l As Integer

Open ActiveWorkbook.Path & '\\\\\\\\donnée\\\\\\\\' & 'test.dat' For Input As #1 ' a adapter
Do While Not EOF(1)
        Line Input #1, ligne
        ligne = Application.Trim(ligne)
        If IsNumeric(Mid(ligne, 2, 1)) Then
                l = l + 1
                Sheets('outputs').Cells(l, 1) = extraire(ligne)
        End If
Loop
Close #1
       
End Sub
'_________________________________________________
Public Function extraire(t As String) As String
Dim tablo()
Dim i As Byte
Dim x As Byte

For i = 1 To Len(t)
        If Mid(t, i, 1) = ' ' Then
                x = x + 1
                ReDim Preserve tablo(1 To x)
                tablo(x) = i
        End If
Next i

extraire = Mid(t, tablo(2) + 1)
End Function

Cliquez pour agrandir...