Bonjour,

voici le probleme, il faut ajouter un slide avec un masque enregistré, si cela peut se faire avec les noms et non index ca serait super.

Merci !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function bPptAddSlides(oPptDoc As Object, sDesign As String, sLayout As String) As Boolean
 
bPptAddSlides = True
 
On Error GoTo errorHandler
oPptDoc.Slides.Add Index:=oPptDoc.Slides.Count + 1, Layout:=oPptDoc.Designs(1).SlideMaster.CustomLayouts(1)
 
 
Exit Function
errorHandler:
    bPptAddSlides = False
End Function