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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.