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

Pirath -  
 Pirath -
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
A voir également:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Pirath
 
Bonjour ccm81,

Je viens de tester et cela fonctionne à merveille, merci beaucoup pour ton aide.
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Pirath
 
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
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Non, je crois qu'il faut être inscrit comme membre, ce que tu devrais faire d'ailleurs.
Je vais tenter de demander

Cdlmnt
0
Pirath
 
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
0