Re bonjour Jean-Marc
Voici une version qui utilis la Function Mid pour retourner un nombre précis de caractères...
Ici je récupére du Dizième Caractère (inclus) au Quatorzième (inclus)
Option Explicit
Sub ImportTXT()
Dim TheRecord As String
Dim TheContainer As String
Dim ThePath As String
Dim i As Integer
i = 1
ThePath = "C:\C\My Test\TXT_Tab_Separator.txt"
Open ThePath For Input As #1
Do While Not EOF(1)
Line Input #1, TheRecord
TheContainer = Mid(TheRecord, 10, 5)
With ActiveSheet
On Error Resume Next
.Cells(i, 1) = TheContainer
End With
i = i + 1
Loop
Close #1
End Sub
Pour changer, par exemple du 5em au 7em caractère, j'écrirais
TheContainer = Mid(TheRecord, 5, 3)
Pour les espaces, en utilisant ma précédente méthode avec Split sur Chr(160) ou Chr(32) (faire des essaies)
Bon Aprèm
@+Thierry