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