Discussion :

[zeralium]

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")

[decondelite]

Parce que SHtmpIO est une feuille, et que c'est une référence située dans l'espace global, et non pas une propriété de l'objet WBsource.

Pour que ça marche, fais comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SHtmpIO.Cells.Copy Destination:=WBdestination.Sheets("Feuil1").Range("A1")