Discussion :

[ChristianVBA]

Bonjour à tout le monde
Je suis en train de réaliser un jeu d'objets cachés avec PowerPoint.
Plusieurs présentations sont nécessaires pour les divers moments du jeu (les scènes)
A la fin d'une présentation, je souhaiterais qu'une nouvelle présentation s'ouvre, et que la précédente se ferme ...
NB. Je ne suis pas contre un peu de codage VBA

[Nain porte koi]

Hello,

pour être sûr de comprendre...

...une nouvelle présentation s'ouvre...

c'est une présentation vierge ou une particulière existante ?

[ChristianVBA]

Bonjour
C'est une présentation existante ...

[Nain porte koi]

Voici le code (à coller dans le VBA d'un bouton par exemple) à mettre dans la présentation à fermer

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
Private Sub CommandButton1_Click()
 
    Dim Chemin_Nouvelle_Presentation As String
    Dim Presentation_Actuelle As Presentation
    Dim Nouvelle_Presentation As Presentation
 
    ' à adapter
    Chemin_Nouvelle_Presentation = "C:\chemin\vers\votre\fichier\nom_du_fichier.ppqqchose"
 
    Set Presentation_Actuelle = Application.ActivePresentation
    Set Nouvelle_Presentation = Application.Presentations.Open(Chemin_Nouvelle_Presentation)
    Presentation_Actuelle.Close
    Nouvelle_Presentation.SlideShowSettings.Run
 
End Sub