Conversion de fichier TXT en XLS

Bonjour, a tous j'ai un ficher TXT de type nomenclature que j'essaye de transformer en fichier excel mais cela ne fonctionne pas, je n'arrive pas à mettre les colonnes au bonne endroit.

pouvez-vous m'aider?

Je vous joins le fichier TXT avec

Bonjour sophie03

'tu mets le chemin de ton fichier texte ici :
Chemin = monchemin
    Workbooks.OpenText Filename:=Chemin, _
        Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

    Columns("B:G").Select
    Selection.Columns.AutoFit

est-ce que cela peut t'aider ?

Bonsoir,

testes ça!

Merci de vos retour, les deux solutions fonctionnent

Avec une préférence pour la deuxième solution

Est-ce possible de conserver la mise en forme des titres sur les entêtes ?

Bonjour,

Je regarde mais il me faut un peu de temps

voilà

Bonjour, désolé pour la réponse tardive je n'avais pas activée le suivi.

Merci cela doit fonctionne

un grand merci vous êtes formidable.