Copier les éléments d'un fichier dans le fichier qui lance la macro [Résolu]

[hobine]

Bonjour
J'ai une macro qui est lancée par une interface dans le fichier A.xls. J'ai besoin de copier des données de la feuille B d'un fichier B.xls dans une feuille (feuille A) de A.xls.

La macro que j'ai testée est la suivante:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub COPIEBASEVG()
Dim Wbk As Workbook, Wbks As Workbook
Dim Rep As String
 
 
Rep = "C:\fichiers_travail\"
Set Wbk = Workbooks.Open(Rep & "B.xls")
Set Wbks = Workbooks.Open(Rep & "A.xls")
 
Wbks.Worksheets("feuilleA").Range("C9:F14").Value = Wbk.Worksheets("feuilleB").Range("A2:D7").Value
 
Wbk.Close False
Wbks.Close True
Set Wbk = Nothing
Set Wbks = Nothing
End Sub

Si le fichier A.xls n'est pas le fichier depuis lequel on lance la macro cela fonctionne. Sinon, il ne se passe rien. Merci pour votre aide.

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub COPIEBASEVG()
Dim Wbk As Workbook
Dim Rep As String
 
 
Rep = "C:\fichiers_travail\"
Set Wbk = Workbooks.Open(Rep & "B.xls")
 
ThisWorkbook.Worksheets("feuilleA").Range("C9:F14").Value = Wbk.Worksheets("feuilleB").Range("A2:D7").Value
 
Wbk.Close False
Wbks.Close True
Set Wbk = Nothing
End Sub

[bbil]

bonsoir,

ben si ton fichier A contient ta macro tu n'as pas besoin de l'ouvrir il est déjà ...

remplace :

Code :

Set Wbks = Workbooks.Open(Rep & "A.xls")

par

Code :

Set Wbks = ThisWorkBook

[hobine]

Merci, cela résout le problème

[hobine]

et comment faire si je veux ouvrir un second, (troisième, ..) fichier pour aller copier d'autres donnés et ajouter directement en dessous des données précédentes du fichier A?

merci par avance