Re,
Essaie avec un truc du genre :
RechercheFichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", , )
' Ouverture du fichier d'export
Workbooks.OpenText Filename:=RechercheFichier, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1))
En adaptant bien sûr DataType, TextQualifier, Array(), etc en fonction de ton fichier à importer.
Abel