Powerpointception : Copie de slides ppt dans un ppt

Bonjour à tous,

je cherche à faire une macro qui, je pense, est simple. En réalité je cherche depuis un moment et impossible de trouver comment faire certaines parties :

Ce que je désire faire :

J'ai deux ppt qui existent : ppt 1 (Avec les slides A1 et B1) & ppt2 (Avec les slides A2 et B2)

Je veux copier les slides A1 et B1 de ppt1 dans PPT2 qui deviendraient donc C2 et D2

Puis supprimer A2 et B2 de ppt2 pour avoir à nouveau que deux slides dans PPT2.

Je n'ai pour l'instant réussi qu'à ouvrir PPT2 à partir de PPT1 en utilisant:

Dim cible

'cible = Shell("POWERPNT.EXE ""\\C:\CHEMIN\TESTMACRO.pptx""", 1)

Set PptDoc = pptApp.Presentations.Add

PptDoc.Slides(1).Shapes.Select

PptDoc.Slides(1).Shapes.Copy

PptDoc.Slides(2).Shapes.Paste

Mes PptDoc.Slides(n).shapes ne fonctionnent visiblement pas.

Auriez vous une idée SVP ? même si ce n'est qu'une partie du code.

Cordialement;

Yeahman

Rechercher des sujets similaires à "powerpointception copie slides ppt"