Discussion :

[Vadorblanc]

Bonjour
Cette macro de Mercatog concatène des fichiers Excel en un seul fichier, superbe.
Je souhaiterais que chaque fichier ajouté soit séparé que d'une ligne, hors le code les colle les un après les autres toutes les 100 lignes (j = j + 100)

De plus j'ai adapté ce code en mettant 1000 (& 1000 ) mais je ne suis pas certain si un fichier dépasse 1000 lignes que cela fonctionne, si je mets plus de 1000, vu le nombre de fichier celà peux bloquer, car 65536 lignes maxi.

En fait je voudrais que chaque fichier soit collé pour le plus grand nombre possible, sachant que des fichiers font quelques lignes et d'autres plusieurs centaines de lignes.

Merci pour l'aide

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
Sub ConcatenerDesFichiers()
Dim Wbk As Workbook
Dim Fich As String
Dim j As Long
 
Fich = Dir("C:\Concatener\*.xls")
Application.ScreenUpdating = False
Do While Fich <> ""
    Set Wbk = Workbooks.Open("C:\Concatener\" & Fich)
 
    ThisWorkbook.Sheets(1).Range("A" & 1 + j & ":Y" & 1000 + j).Value = Wbk.Sheets(1).Range("A1", Range("Y1").End(xlDown)).Value
 
    j = j + 100   'colle chaque fichier toutes les n lignes
    Wbk.Close
    Set Wbk = Nothing
    Fich = Dir
Loop
End Sub

[pgz]

Bonjour.

Je te propose ces modifications, à tester.

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
25
Sub ConcatenerDesFichiers()
Dim Wbk As Excel.Workbook, oRng As Excel.Range
Dim Fich As String
Dim lign As Long, nB As Long
 
Fich = Dir("C:\Concatener\*.xls")
Application.ScreenUpdating = False
 
lign = 1
 
Do While Fich <> ""
    Set Wbk = Workbooks.Open("C:\Concatener\" & Fich)
    Set oRng = Wbk.Sheets(1).Range("A1", Range("Y1").End(xlDown))
    nB = oRng.Rows.Count
 
    ThisWorkbook.Sheets(1).Range("A" & lign & ":Y" & lign + nB - 1).Value = oRng.Value
 
    lign = lign + nB + 1  'saut d'une ligne
    Wbk.Close
    Fich = Dir
Loop
 
Set Wbk = Nothing
Set oRng = Nothing
End Sub

Cordialement,

PGZ

[Vadorblanc]

Bonjour pgz

Merci pour ton aide
J'ai lancé la macro et j'ai un bloquage sur cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ThisWorkbook.Sheets(1).Range("A" & lign & ":Y" & lign + nB - 1).Value = oRng.Value

le premier fichier s'est chargé, le deuxième fichier est ouvert mais ne se mets pas en suivant, bloque ...

Je ne voie pas ce qu'il faut modifier

Merci

[pgz]

Bonjour.

Si le code de ton premier message fonctionnait, avec les inconvénients que tu veux régler, je ne vois pas trop.
Tu peux ajouter une ligne de code pour afficher la valeur oRng.Address puis, en debug, regarder les valeurs de chaque variable sur la ligne qui provoque l'erreur. Il y a peut-être un pb de dimension des plages.

Cordialement,

PGZ

[Vadorblanc]

Re bonjour ppz
Effectivement, j'ai relancé la première macro de Mercatog modifiée pour mes besoins, et j'arrive à charger tous mes fichiers qui ont une plage de lignes ne dépassant jamais les 150 lignes, donc en les collant toutes les 200 lignes j'ai une marge de manœuvre raisonnable, et tout fonctionne.
Je vais en rester là, c'est vrai que de les coller avec une ligne d'intervalle était plus logique, mais comme je fais ensuite un tri, tous les écarts disparaissent.
En tout cas, un grand merci pour te recherche.
Bien cordialement.