Importation de données

Bonjour à tous,

Je ne sais pas comment m'y prendre pour importer des données d'un classeur excel vers un autre classeur excel. connaissant les lignes et les colonnes de la cellule à exporter (ici col1 et lig1), je souhaiterais l'importer dans la cellule indicé col2, lig2. Voici le code :

Sub import_dalkia(machaine As String, col1 As Integer, lgn1 As Integer, col2 As Integer, lig2 As Integer)

Dim classeurSource As Workbook, classeurDestination As Workbook

'ouvrir le classeur source (en lecture seule)

Set classeurSource = Application.Workbooks.Open("C:\MONFICHIER.xls", , True)

'définir le classeur destination

Set classeurDestination = ThisWorkbook

'copie de la cellule de MONFICHIER vers la destination

classeurSource.Sheets("feuil1").Cells(col1, lig1).Copy classeurDestination.Sheets("feuil1").Cell(lig2, col2)

End Sub

La copie ne marche pas, je ne doit pas utiliser les fonctions adéquates.

Merci à tous

Cordialement

Bonjour

Essaie ce code :

Workbooks("ClasseurSource.xls").Sheets("Feuil1").Cells(1, 1).Copy Workbooks("MonClasseur.xls").Sheets("Feuil1").Cells(2, 2)