XL 2010 Copier un tableau croisé dynamique même si celui ci a un nombre de ligne variable

[306255]

Bonjour à tous,

Je souhaite copier un tableau croisé dynamique avec le code suivant mais le nombre de ligne peuvent variées en fonctions des résultats, j'aimerais copier le TCD par son nom (Tableau croisé dynamique1) mais non pas par ses coordonnées ( dans l'exemple A2:G25).

Comment est t il possiblle de modifier le code ci-dessous

Merci d'avance

Sub f()
'
' f Macro
'

'
Sheets("FOCUS").Select
Range("A2:G25").Select
Selection.Copy
Sheets("TOUS").Select
Range("X19").Select
End Sub

 

[chris]

Bonjour

Sheets("FOCUS").PivotTables("Tableau croisé dynamique1").TableRange2.Copy Destination:=Sheets("TOUS").Range("X19")

 

[306255]

Bonjour

Sheets("FOCUS").PivotTables("Tableau croisé dynamique1").TableRange2.Copy Destination:=Sheets("TOUS").Range("X19")

Merci j'ai juste une autre demande en fait il ne doit pas être coller en x19 juste garde le "copier en mémoire" et la case x 19 c'est juste pour que la case sélectionné soit x19 après le fonctionnement de la macro

Merci pour tout

 

[chris]

RE
Et bien tu enlèves la destination mais il ne restera pas en mémoire très longtemps...
Un TCD a besoin de son cache donc je ne sais trop ce que tu comptes en faire...

 

[306255]

RE
Et bien tu enlèves la destination mais il ne restera pas en mémoire très longtemps...
Un TCD a besoin de son cache donc je ne sait trop ce que tu comptes en faire...

super c est impeccable merci