Bonjour à tous, je suis un débutant sur VBA excel. J'ai des petits soucis avec un code. Si quelqu'un peut me venir en aide.

En fait, mon problème est le suivant :

Je souhaite ouvrir 04 classeurs dans des emplacements différents, parcourir les feuilles de chaque classeur et copier des données d'une certaine plage et les coller dans un autre classeur.

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
27
28
29
30
31
32
33
34
35
Private Sub Btn_Importer_Click ()
 
Dim j As String
Dim Wsht1 As Worksheet
 
Windows("Rapport_Hebdo_Format.xlsm").Activate
 
Nom_Fichier_1 = Sheets("Tuning").Cells(6, 2).Value
Dossier_source_1 = Sheets("Tuning").Cells(8, 2).Value
 
Nom_Fichier_2 = Sheets("Tuning").Cells(10, 2).Value
Dossier_source_2 = Sheets("Tuning").Cells(12, 2).Value
 
Nom_Fichier_3 = Sheets("Tuning").Cells(14, 2).Value
Dossier_source_3 = Sheets("Tuning").Cells(16, 2).Value
 
Nom_Fichier_4 = Sheets("Tuning").Cells(18, 2).Value
Dossier_source_4 = Sheets("Tuning").Cells(20, 2).Value
 
On Error Resume Next
 
Application.ScreenUpdating = False
 
Workbooks.Open Filename:=Dossier_source_1 & Nom_Fichier_1
Workbooks.Open Filename:=Dossier_source_2 & Nom_Fichier_2
Workbooks.Open Filename:=Dossier_source_3 & Nom_Fichier_3
Workbooks.Open Filename:=Dossier_source_4 & Nom_Fichier_4
 
Windows("Rapport_Hebdo_Format.xlsm").Activate
Sheets("Tuning").Select
 
Application.ScreenUpdating = True
 
 
' Importer des données d'une feuille du premier classeur et les coller dans le classeur Rapport_Hebdo_Format, feuille Rapport'
C'est le code ci-dessous qui me donne des soucis.


Merci d'avance pour cette assistance.


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
27
Windows("Rapport_Hebdo_Format.xlsm").Activate
Sheets("Tuning").Select
 
j = Sheets("Tuning").Cells(7, 2).Value   
 
Workbooks(Dossier_source_1 & Nom_Fichier_1).Activate
 
For Each Wsht1 In thisworkbooks
 
    If Wsht1.Name = j Then
 
        range("A5:K5").select
        Selection.copy
 
        Windows("Rapport_Hebdo_Format.xlsm").Activate
        range("A1")
        Paste selection.copy
 
 
    End If
 
 
Next Wsht1
 
 
 
End Sub