Discussion :

[lavoile]

Bonjour,

je souhaiterais récupérer la plage de cellule A1 B30 de plusieurs fichiers excel fils classé dans un répertoire. Je voudrais mettre ces plages de cellules les unes à la suite des autres dans l'onglet Feuil1 du classeur 1 qui est le classeur mère.
De plus et si possible, le mieux serait de récupérer ces plages de cellules sans avoir à ouvrir les fichiers fils

Sachant que je ne peux modifier les fichiers fils (il ne sont pas protéger ni rien par contre) et qu'il y en a de plus en plus.

Dans l'attente de vous lire.

[BenjGe]

quel est le nom où la position des feuilles contenant les données dans les classeurs fils?
dans le cas où dans les classeurs fils la feuille contenant les données est en pemière position de tous les classeurs fils ça donne ceci:

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
26
Sub main()
Dim rep$
rep = "C:\Documents and Settings\Benjîle\Bureau\tr" 'répertoire contenant les fichiers
 
'création de l'objet fso pemettant de manipuler les fichiers et les répertoires
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
 
 
'on va génère un nouveau classeur pour y stocker les données
Dim ws As Excel.Worksheet, wkdest As Excel.Workbook
Set wkdest = Workbooks.Add
Set ws = wkdest.Sheets(1) 'c'est la première feuille qui recevra les données
 
 
 
'on parcourt les fichiers du répertoire
Dim fil As Object, wk As Excel.Workbook, n#
n = 0
For Each fil In fso.GetFolder(rep).Files
    Set wk = Workbooks.Open(fil) 'ouverture du classeur contenant les données à récupérer
    wk.Sheets(1).Range("A1:B30").Copy Destination:=ws.Cells(30 * n + 1, 1) 'copier coller à destination du classeur wkdest
    wk.Close savechanges:=False 'fermeture du classeur contenant les données
    n = n + 1
Next fil
End Sub