Basculer vers un PowerPoint d'Excel

Hello tous,

J'utilise le script bien connu de pilotage de PPT à partir d'excel. Dans celui ci :

Code:

---

Set PptDoc = PPT.Presentations.Open(ThisWorkbook.Path & "\Template PPT.pptx")

---

Ce qui a pour effet d'ouvrir le powerpoint.
L'ennui est que ma macro est assez longue, et j'ai besoin de basculer à plusieurs moments vers celle ci.

Ma macro comprend plusieurs parties. Bizarement, après quelques temps, il ne reconnait plus l'étiquette "PptDoc" (même avec les DIM hors des sub). Si je réécrit le code "Set PPTdoc = presentation.open.. , il m'ouvre une deuxième fenetre Powerpoint, ce que je ne veux pas. (tout doit rester dans la meme présentation).

Je voudrais réactiver (un nouveau Set ?) le power point, sans passer par Presentation.open.

En BREF, j'aimerais trouver l'équivalent du workbook("excel.xls").activate en power point..
Le Presentations("Template PPT.pptx") ne fonctionne pas.

Code:

---

Set NewPPT = Powerpoint.application.presentations("Template PPT.pptx")

---

ne fonctionne pas non plus.

Quelqu'un aurait il un équivalent ?

Merci d'avance! :)

Résolu.

Pour les suivants :

Si il n'y a que une présentation PPT ouverte, il suffit de réécrire

Code:

---

1 2	Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint Set PptDoc = PPT.ActivePresentation 'ouverture fichier ppt

---

(mais si certains ont une idée pour écrire un

Code:

---

Set PPtdoc = presentations("Template PPT.pptx")

---

qu'ils n'hésitent pas!)

Merci,

a+