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
Merci de votre aide
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 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
Partager