Copier des données d'une feuille vers un autre classeur

Bonjour ,

je voudrais copier des ligne d'une feuille vers un autre classeur ,mais avec une condition ,( copier seulement les lignes qui ont ''XX'' a la colonne (AE)

voici le code que j'utilise pour le moment mais comme vous voyez il copie toute la feuille

Sub Importdata()

Dim classeurSource As Workbook, classeurDestination As Workbook

Set classeurSource = Application.Workbooks.Open("C:\Users\riadh.said@cic.gc.ca\Desktop\Updatev3.xlsm", , True)

Set classeurDestination = ThisWorkbook

classeurSource.Sheets("Workload - Charge de travail").Cells.Copy classeurDestination.Sheets("Sheet1").Range("A2")

classeurSource.Close False

End Sub

Bonsoir,

Essaye comme ça en remplaçant la ligne suivante :

classeurSource.Sheets("Workload - Charge de travail").Cells.Copy classeurDestination.Sheets("Sheet1").Range("A2")

par :

classeurSource.Sheets("Workload - Charge de travail").UsedRange.Copy classeurDestination.Sheets("Sheet1").Range("A2")

Bonjour,

Ce code m’intéresse mais ou est spécifier la condition "XX" de votre exemple?

Merci