Bonjour à tous,

après moultes recherches je me tourne vers vous.

J'ai un pivot Excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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