Copie slides entre présentations

Hello

Premier post ici pour un appel à l'aide.
J'ai besoin de fusionner des slides provenant de plusieurs préz dans une seule cible.
L'idée est de parser tous les fichiers d'un répertoire et dans chacun, copier un slide donné et de l'ajouter dans la préz cible.

Qq'un a une idée du code qui saura me dépanner ?

Merci d'avance et à plus

Salut,

tu peux parcourir l'ensemble des slides de ta presentation en cours avec

Code:

---

For Each sld In ActivePresentation.Slides

---

pour dupliquer une slide :

Code:

---

Set newSlide = ActivePresentation.Slides(1).Duplicate

---

pour copier d'une presentation a une autre :

Code:

---

1 2 3 4 5 6 7

Sub Piou() Dim pres1 As PowerPoint.Presentation, pres2 As PowerPoint.Presentation Set pres1 = Application.ActivePresentation Set pres2 = Application.Presentations.Add ' nouvelle presentation pres1.Slides(1).Copy pres2.Slides.Paste pres2.Slides.Count + 1 End Sub

---

a adapter bien sur

En complement, solution issue de la :faq:
http://powerpoint.developpez.com/faq...-A#InsertDiapo