Bonjour,

Je ne comprend pas pourquoi le premier code fonctionne et pourquoi le second ne foncfionne pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim WBsource As Workbook
Dim WBdestination As Workbook
Set WBsource = ActiveWorkbook
Set WBdestination = Application.Workbooks.Add
WBsource.Activate
WBsource.Sheets("Temp IO").Cells.Copy Destination:=WBdestination.Sheets("Feuil1").Range("A1")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim WBsource As Workbook
Dim WBdestination As Workbook
Set WBsource = ActiveWorkbook
Set SHtmpIO = Sheets("Temp IO")
Set WBdestination = Application.Workbooks.Add
WBsource.Activate
WBsource.SHtmpIO.Cells.Copy Destination:=WBdestination.Sheets("Feuil1").Range("A1")