1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub Test_CSV_II()
Dim strPath$, vCSV As Workbook, vFld, Lig&, Fin&, vDate, vDatas As Range
strPath = "P:\Transfer\Boite FAB\CONTROLE DIMENSIONNEL OPTIQUE\Programmes (ne pas effacer)\D8580x hauteur, planeité et parallelisme.csv" '<= adapter le nom du chemin où se trouve le *.csv
vFld = _
Array(Array(1, 1), Array(2, 1), Array(3, 4), 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))
With Application
.ScreenUpdating = 0
Workbooks.OpenText Filename:=strPath, Origin:=2, StartRow:=6, DataType:=1, Comma:=-1, FieldInfo:=vFld, DecimalSeparator:="."
Set vCSV = ActiveWorkbook
.DisplayAlerts = False
Lig = .Match(.Max([C:C]), [C:C], 0)
vDate = .Cells(Lig, "C")
Fin = .Cells(Rows.Count, "C").End(xlUp).Row
Set vDatas = Range(.Cells(Lig, "C"), .Cells(Fin, "C")).Offset(, 2).Resize(, 45)
End With
'NB:adapter ici le nom de la feuille
ThisWorkbook.Sheets(3).[A1].Resize(Fin + 1 - Lig) = vDate
ThisWorkbook.Sheets(3).[B1:AT1].Resize(Fin + 1 - Lig) = vDatas.Value
vCSV.Close False
End Sub |
