Bonjour à tous,

je cherche actuellement à copier les données d'une feuille d'un workbook dans une autre feuille d'un autre workbook.

Cependant j'ai une erreur qui m'annonce que le champ FieldInfo contient trop de lignes, je vous écris le code vous allez comprendre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Workbooks.OpenText Filename := _
        "C:\fichier_texte.txt" _
        , Origin := 932, StartRow := 1, DataType := xlDelimited, TextQualifier := _
        xlDoubleQuote, ConsecutiveDelimiter := FALSE, Tab := TRUE, Semicolon := FALSE, _
        Comma := FALSE, Space := FALSE, 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),Array(18,1),Array(19,1),Array(20,1),Array(21,1), _
        Array(22,1),Array(23,1),Array(24,1),Array(25,1),Array(26,1),Array(27,1),Array( _
        28,1),Array(29,1),Array(30,1),Array(31,1),Array(32,1),Array(33,1),Array(34,1), _
        Array(35,1),Array(36,1),Array(37,1),Array(38,1),Array(39,1),Array(40,1),Array( _
        41,1),Array(42,1),Array(43,1),Array(44,1),Array(45,1),Array(46,1),Array(47,1), _
        Array(48,1),Array(49,1),Array(50,1),Array(51,1),Array(52,1),Array(53,1),Array( _
        54,1),Array(55,1),Array(56,1),Array(57,1),Array(58,1),Array(59,1),Array(60,1), _
        Array(61,1),Array(62,1),Array(63,1),Array(64,1),Array(65,1),Array(66,1),Array( _
        67,1),Array(68,1),Array(69,1),Array(70,1),Array(71,1),Array(72,1),Array(73,1), _
        Array(74,1),Array(75,1),Array(76,1),Array(77,1),Array(78,1),Array(79,1),Array( _
        80,1),Array(81,1),Array(82,1),Array(83,1),Array(84,1),Array(85,1),Array(86,1), _
        Array(87,1),Array(88,1),Array(89,1),Array(90,1),Array(91,1),Array(92,1),Array( _
        93,1),Array(94,1),Array(95,1),Array(96,1),Array(97,1),Array(98,1),Array(99,1), _
        Array(100,1),Array(101,1),Array(102,1),Array(103,1),Array(104,1),Array(105,1), _
        Array(106,1),Array(107,1),Array(108,1),Array(109,1),Array(110,1),Array(111,1), _
        Array(112,1),Array(113,1),Array(114,1),Array(115,1),Array(116,1),Array(117,1), _
        Array(118,1),Array(119,1),Array(120,1),Array(121,1),Array(122,1),Array(123,1), _
Vous voyez un peu l'horreur... ! Du coup le traitement ne l'accèpte pas !

Donc en fait je cherche à copier jusqu'à la colonne 161, auriez-vous une méthode à me conseiller ?

Cordialement