Sub Importation()
Dim DialOuvr As FileDialog, Rep, Chemin As String
Set DialOuvr = Application.FileDialog(msoFileDialogOpen)
DialOuvr.Filters.Clear
DialOuvr.Filters.Add "Fichiers Texte", "*.txt", 1
DialOuvr.AllowMultiSelect = False
DialOuvr.Title = "Choix du fichier texte à importer"
DialOuvr.InitialView = msoFileDialogViewList
Rep = DialOuvr.Show
If Rep = 0 Then
MsgBox "Opération annulée"
Exit Sub
End If
Chemin = DialOuvr.SelectedItems(1)
Workbooks.OpenText Filename:=Chemin _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(12, 1), Array(18, 1), Array(25, 1), Array(33, 1), Array(45, 1), _
Array(50, 1), Array(58, 1), Array(80, 1), Array(94, 1), Array(103, 1), Array(118, 1), Array _
(127, 1)), TrailingMinusNumbers:=True
End Sub