Je souhaite ouvrir un modèle de powerpoint depuis VBA Excel. j'arrive à ouvrir celui-ci mais seulement pour un slide alors que dans mon modèle j'ai quatre slides différents...
Je vous remercie.


Voici mon code:

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
17
18
19
20
ElseIf Format(extention, ">") = "POT" Then
'### Constante à adapter ###
Const CHEMIN_MODELE As String = "U:\PPI\Macro_power point\TEST.pot"
'###########################
 
Dim PP As Object    'PowerPoint.Application
Dim PRES As Object  'PowerPoint.Presentation
Dim slid As Object  'PowerPoint.Slide
 
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add(msoTrue)
Set slid = PRES.Slides.Add(1, 2)   '2 = ppLayoutText
 
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
Set slid = Nothing
Set PRES = Nothing
Set PP = Nothing
 
Exit Sub