Fusionner des fichiers Excel en un seul
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:
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 |
