Sub Multi_ImportCSV_A()
Dim fCSV, i&, qtB
fCSV = _
Application.GetOpenFilename(FileFilter:="Fichier CSV (*.csv), *.csv", MultiSelect:=True, Title:="Sélectionner les fichier CSV")
If IsArray(fCSV) Then
For i = LBound(fCSV) To UBound(fCSV)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & fCSV(i), Destination:=Cells(Rows.Count, 1).End(3).Offset(1, 0))
.TextFileParseType = 1: .TextFileCommaDelimiter = -1
.TextFileDecimalSeparator = ".": .Refresh BackgroundQuery:=0
End With
Next i
For Each qtB In ActiveSheet.QueryTables: qtB.Delete: Next qtB
Else
MsgBox "Aucun fichier CSV sélectionné!", 16, "Erreur"
End If
End Sub