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:
Merci d'avance.
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
Cordialement,
Yoann.
Partager