Ouvrir modèle powerpoint PLUSIEURS SLIDES dans VBA Excel

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:

---

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

---

J'arrive maintenant à afficher mes 4 slides comme dans mon modèle. Mon problème est maintenant celui du calque. Dans mes 4 slides s'affichent le calque du premier slide et bien entendu les 4 sont différents dans mon modèle... Avez-vous une idée svp?

Mon programme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

ElseIf Format(extention, ">") = "POT" Then '### Constante à adapter ### Const CHEMIN_MODELE As String = "U:\PPI\Macro_power point\TEST1.pot" '###########################   Dim PP As Object 'PowerPoint.Application Dim PRES As Object 'PowerPoint.Presentation   Set PP = CreateObject("Powerpoint.Application") Set PRES = PP.Presentations.Add     PRES.Slides.InsertFromFile "U:\PPI\Macro_power point\TEST1.pot", Index4, 1, 4   PRES.ApplyTemplate Filename:=CHEMIN_MODELE PP.Visible = True   Set PRES = Nothing Set PP = Nothing   Exit Sub

---

Merci

Salut, à lire http://www.developpez.net/forums/d23...er-powerpoint/ http://powerpoint.developpez.com/faq/

Merci.Mais cela ne résout pas mon problème.. J'utilise la bonne formule pour insérer des diapos j'ai bien mes 4 diapos mais avec le fond de la première diapo. Et je souhaite ouvrir ce fichier en modèle afin que l'utilisateur qui a besoin du modèle ne travaille pas sur celui-ci.

J'ai tout essayé et je n'y arrive toujours pas. Quelqu'un voudrait bien se pencher sur mon problème?je vous remercie