1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| '
' Ouverture des fichiers *.txt
'
'
On Error GoTo GestionErreur
Dim Fichier()
Fichier = Application.GetOpenFilename("Fichiers textes (*.txt), *.txt, Tous Fichiers (*.*), *.*", , "Sélectionnez votre source de données", , True)
For ctr = 1 To UBound(Fichier)
If VarType(Fichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=Fichier(ctr) _
, Origin:=xlMSDOS, 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), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True
End If
Next
GestionErreur:
Exit Sub
End Sub |
Partager