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

- - Dernière réponse :  Pirath - 29 avril 2019 à 13:34
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
Afficher la suite 

2 réponses

Messages postés
9060
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 août 2019
1608
0
Merci
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
Bonjour ccm81,

Je viens de tester et cela fonctionne à merveille, merci beaucoup pour ton aide.
Commenter la réponse de ccm81
Messages postés
9060
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 août 2019
1608
0
Merci
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
Bonjour,

Je suis désolé, je n'arrive pas a mettre en résolu, je pense qu'il faut être connecté pour cela, mais je n'y arrive pas non plus
ccm81
Messages postés
9060
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
19 août 2019
1608 -
Non, je crois qu'il faut être inscrit comme membre, ce que tu devrais faire d'ailleurs.
Je vais tenter de demander

Cdlmnt
Je suis inscrit, j'avais activé mon compte, mais lorsque je clic sur mot de passe oublié, je ne reçoit pas de mail.

En tout cas c'est résolu
Commenter la réponse de ccm81