Discussion :

[n_xeon]

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

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each sld In ActivePresentation.Slides

pour dupliquer une slide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set newSlide = ActivePresentation.Slides(1).Duplicate

pour copier d'une presentation a une autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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