Bonjour à tous,

J'ai créé un set de Slide maison pour mes presentation Powerpoint.

Je souhaiterai créé un powerpoint via VBA et je voudrai pouvoir avoir accès à mon set de Slide.

J'ai donc écris le code suivant :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub creating_ppt()
Dim ppt As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide

Set ppt = New PowerPoint.Application

ppt.Visible = True
ppt.Activate

Set ppPres = ppt.Presentations.Add
ppPres.ApplyTemplate "G:\OfficeTemplates\SharedTemplates\EN\Toto Group.potx"

Set ppSlide = ppPres.Slides.Add(1, X)

End Sub
dans
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set ppSlide = ppPres.Slides.Add(1, X)
Je vois apparaitre à la place du X les Layout classiques de PPT (ppLAyoutBlank, ppLayoutChart ...) et pas ce que j'ai créé dans mon potx

Auriez vous une solution ?

Merci d'avance