XL 2010 [RÉSOLU] Copie automatique de colonnes d'un classeur excel à un autre

Sub Copier()
Dim Source As String
Source = "D:\Mes documents\test\ClasseurA.xlsx" 'A adapter
    Workbooks.Open Filename:=Source
    'Ci-dessous adapter le nom des feuilles
    ActiveWorkbook.Sheets("Feuil1").Columns("A:C").Copy ThisWorkbook.Sheets("Feuil2").[A1]
    ActiveWindow.Close False
End Sub

Sub Copier()

Dim Source As String

Dim Destination As String




Source = "E:\ ... .xls" 'A adapter

Destination = "E:\ ... .xls"




     Workbooks.Open Filename:=Source

     'Ci-dessous adapter le nom des feuilles

     Workbooks(Source).Sheets("Feuil1").Columns("A:C").Copy Workbooks(Destination).Sheets("Feuil5")

     ActiveWindow.Close False

  

End Sub

  Workbooks(Source).Sheets("Feuil1").Columns("A:C").Copy Workbooks(Destination).Sheets("Feuil5")

ActiveWorkbook.Sheets("Feuil2").Columns("A:C").Copy ThisWorkbook.Sheets("Feuil5").[a1]

Sub Copier3()
Dim Source As String, Destination As String, Chemin As String
Chemin = "D:\Mes documents\test\" 'A adapter
Source = "ClasseurA.xlsx" 'A adapter
Destination = "ClasseurB.xlsm" 'A adapter mais doit être avec l'extension ".xlsm" et enregistrer.
Workbooks.Open Filename:=Chemin & Source
'Ci-dessous adapter le nom des feuilles
Workbooks(Source).Sheets("Feuil1").Columns("A:C").Copy Workbooks(Destination).Sheets("Feuil5").[a1]
Workbooks(Source).Close False
End Sub