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 31 32 33 34 35 36 37 38 39
|
Set nequery = ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & fich, Destination:=Range("A1"))
With nequery
.Name = "Nom"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(C(1), C(2), C(3), C(4), C(5), C(6), C(7), C(8), C(9), _
C(10), C(11), C(12), C(13), C(14), C(15), C(16), C(17), C(18), C(19), _
C(20), C(21), C(22), C(23), C(24), C(25), C(26), C(27), C(28), C(29), _
C(30), C(31), C(32), C(33), C(34), C(35), C(36), C(37), C(38), C(39), _
C(40), C(41), C(42), C(43), C(44), C(45), C(46), C(47), C(48), C(49), _
C(50), C(51), C(52), C(53), C(54), C(55), C(56), C(57), C(58), C(59), _
C(60), C(61), C(62), C(63), C(64), C(65), C(66), C(67), C(68), C(69), _
C(70), C(71), C(72), C(73), C(74), C(75), C(76), C(77), C(78), C(79), _
C(80))
.Refresh BackgroundQuery:=False
End With
nequery.Delete |
Partager