Transformer un pivot excel en tableau ppt

Bonjour à tous,

après moultes recherches je me tourne vers vous.

J'ai un pivot Excel :

Code:

---

xlsSheet.PivotTables("toto").TableRange2.Copy

---

et je voudrais le copier dans mon slide mais juste les données (je précise que la macro est dans ppt).

J'ai réussi à obtenir une image avec

Code:

---

PasteSpecial(ppPasteEnhancedMetaFile)

---

mais on ne peut pas faire de copié coller des données donc ca ne va pas.
J'ai donc essayer avec

Code:

---

PasteSpecial(ppPasteOLEObject)

---

mais le tableau est toujours lié au Excel et ca je ne veux pas non plus.

Je voudrais juste copier les données de mon pivot dans un nouveau tableau.
J'ai aussi essayé :

Code:

---

newTable.Cell(1,1).Shape.TextFrame.TextRange.Paste

---

car je ne sais jamais à l'avance le nombre de ligne/colonne. Mais comme je m'y attendais, il colle tout le pivot en vrac dans l'unique cellule. Alors que si on fait ca à la main : créer une cellule et coller le tableau, la cellule se transforme en tableau... bref, ca marche pas en vba.

Y a -t-il une autre solution que celle de parcourir tout le pivot pour connaitre le nombre de lignes et de colonnes et recopier tout avec une boucle dans le nouveau tableau ?

Merci pour vos idées