Copie entre fichiers Excel
Bonjour,
Je dois créer un fichier Excel à partir de données provenant d'autres fichiers.
J'ai créé cette macro qui devait copier les données en évitant d'utiliser copy/paste.
Au résultat, il n'y a pas d'arrêt de la macro, elle ne marche simplement pas.
Je ne comprends pas pourquoi.
Si quelqu'un a la solution, je suis preneur.
La macro est dans le fichier destination
Code:
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
|
Sub Recopie()
Dim WSSource As Worksheet, WSDest As Worksheet
Dim fichiersource As String, ongletsource As String, fichierdestination As String, ongletdestination As String
Dim chemin As String
Dim maPlageSource As Range, maPlageDest As Range
fichiersource = "MonFichierSource.xls"
chemin = ThisWorkbook.Path
Workbooks.Open(Filename:=chemin & "\Temp\" & fichiersource).RunAutoMacros xlAutoOpen
fichiersource = "MonFichierSource.xls"
ongletsource = "Travail"
fichierdestination = "Essai BdD.xls"
ongletdestination = "Essai"
Set WSSource = Workbooks(fichiersource).Sheets(ongletsource)
Set maPlageSource = Range(Cells(1, 1), Cells(4, 5))
Set WSDest = Workbooks(fichierdestination).Sheets(ongletdestination)
Set maPlageDest = Range(Cells(1, 1), Cells(4, 5))
maPlageDest.Value = maPlageSource.Value
Workbooks(fichiersource).Close True
End Sub |
Merci de votre aide
