Code VBA pour faire ouvrir une présentation pptx et la refermer en revenant dans Excel

Bonsoir,

Quelqu'un peut-il m'aider à modifier le code VBA suivant afin de pouvoir ouvrir une présentation pptx en mode diaporama seul, car cela m'ouvre en fait le fichier PowerPoint et le diaporama en simultanée actuellement ?

Par ailleurs, j'aimerais que le diaporama se ferme automatiquement à la fin et que l'on revienne directement sur le fichier Excel.

Voici le code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Ouvre()   Dim FichierPpt As String, pwpt As Object, presppt As Object   FichierPpt = "C:\...\....pptx" Set pwpt = CreateObject("PowerPoint.Application") pwpt.Visible = True   Set presppt = pwpt.Presentations.Open(Filename:=FichierPpt) presppt.SlideShowSettings.Run   Set presppt = Nothing Set pwpt = Nothing   End Sub

---

Merci d'avance.

Cordialement,

Yoann.

Je n'ai jamais manipuler d'objets PowerPoint en VBA, mais je suppose que ce doit être quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim FichierPpt As String, PPPres As PowerPoint.presentation   FichierPpt = "C:\...\....pptx" Set PPPres = GetObject(FichierPpt) PPPres.Application.Visible = True   PPPres.SlideShowSettings.Run   PPPres.Application.Quit Set PPPres = Nothing

---