Discussion :

[ryan.ighilahriz]

Bonjour à tous,

Je viens vers vous pour solliciter votre aide. Etant novice en vba, voici le problème auquel je suis confronté :

Sur mon bureau, je dispose d'un dossier A avec plusieurs classeurs Excel ( appelons les alpha, beta, gamma etc..). Chacun de ces classeurs contient une seule feuille de données.
Je voudrais à partir d'un classeur B actif, importer sur chaque onglet de celui ci les données de chaque classeur se trouvant dans le dossier A.
Dis autrement, la feuille 1 du classeur B contiendra les données de la feuille 1 du classeur alpha.
La feuille 2 du classeur B contiendra les données de la feuille 1 du classeur beta et ainsi de suite.

J'ai essayé de chercher un petit bout de code pour copier les données d'un classeur fermé vers un classeur ouvert. Ca marche !

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
 
Sub importProdVte()
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
Dim j As Long
Application.ScreenUpdating = False
Set wkA = ThisWorkbook
chemin = "D:\Users\ighilahrizrya\Desktop\"
fichier = "SRM2018112722H30.xlsx"
Workbooks.Open chemin & fichier
Set wkB = ActiveWorkbook
 
j = wkB.Sheets("SRM 2018 11 27 22H30").Range("A" & Rows.Count).End(xlUp).Row
wkA.Sheets("Feuil1").Range("A1:ZZ" & j).Value = wkB.Sheets("SRM 2018 11 27 22H30").Range("A1:ZZ" & j).Value
 
 
wkB.Close True
 
 Application.ScreenUpdating = True
 
End Sub

Mais des qu'il s'agit de faire une boucle pour parcourir les fichiers du dossier A (une centaine à peu près), je ne m'en sors pas..
Pour vous donner un exemple des données que je dois importer, je mets en pièce jointe 3 classeurs ( alpha, beta, gamma) du dossier A .


Si quelqu'un peut m'aider, je lui en serais très reconnaissant
Bien à vous,