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 : 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
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.