Discussion :

[Chnoucky]

Hello tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ne fonctionne pas non plus.

Quelqu'un aurait il un équivalent ?

Merci d'avance!

[Chnoucky]

Résolu.

Pour les suivants :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

qu'ils n'hésitent pas!)

Merci,

a+