Importer une ligne d'un fichier txt avec séparateur tabulation Fermé

Question

Bonjour tout le monde,

Je cherche depuis plusieurs jours sur différents forum, comment importer une ligne d'un fichier txt avec séparateur de tabulation dans les cellules excel.
J'arrive à importer une ligne précise, mais il me l'imoprte dans une seule cellule et ne respecte pas le séparateur.

Voici mon code qui cherche dans le fichier et l'insère dans la cellule

Sub essai()

    Dim strLigne As String
 
    Open "C:\Users\hervé\Desktop\New référence\Ressources\Fournisseurs.txt" For Input As #1
 
    Do While Not EOF(1)
 
        Line Input #1, strLigne
        If InStr(1, strLigne, "A00711") > 0 Then

            Range("A1").Value = strLigne
        
        Close #1
        Exit Sub
    End If
 
    Loop
 
    Close #1
End Sub


Merci beaucoup

ccm81 · Answer

Bonjour

Essaies ceci

If InStr(1, strLigne, "mimi") > 0 Then
    Range("A1").Value = strLigne
    Range("A1").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Tab:=True
    Close #1
    Exit Sub
  End If

Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

Bonne fin de journée

Importer une ligne d'un fichier txt avec séparateur tabulation

2 réponses

Discussions similaires