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