[PPT-2002] Conseils sur macro ouverture et fermeture de présentations

[Zak_92]

Bonjour à tous,

Powerpoint utilisé : 2002 Sp3

J'ai plusieurs présentations Test_01.ppt, Test_02.ppt, Test_03.ppt
Chacune possède le même sommaire créé avec des zones de texte

Sommaire
01 - Test_01
02 - Test_02
03 - Test_03

Le but que je me suis fixé est de lancé une des présentations, de lancer son diaporama et de naviguer sur chaque présentation via le sommaire.

J'ai réussi à faire cette manipulation sans vba, mais je me suis rendu compte que les diaporamas ne se fermés pas lorsque j'en ouvrais une autre et comme je vais en avoir une quarantaine...

Donc j'ai décidé de passer par le vba pour ouvrir et fermer mes diaporamas.
J'ai donc fais la macro ci-dessous que j'ai affecté au zone de texte du sommaire via l'option [Paramètres des actions].

En modifiant bien sur le nom des présentations à ouvrir et à fermer. La macro ci dessous permet d'ouvrir la présentation TEST_02.PPT, de l'activer, de lancer le diaporama et de fermer TEST_01.PPT. Après quelques test cela fonctionne. Mes questions sont juste en dessous du code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Ouvrir_2_Fermer_1()
    ' OUVRIR PRESENTATION TEST_02.PPT
    Application.Presentations.Open FileName:="D:\Perso\Test_02.ppt", ReadOnly:=msoFalse
 
    ' RENDRE ACTIF LA PRESENTATION TEST_02.PPT
    Application.Presentations("D:\Perso\Test_02.ppt").Windows(1).Activate
 
    ' AFFICHER LA PRESENTATION TEST_P2.PPT EN DIAPORAMA
    With ActivePresentation.SlideShowSettings
        .ShowType = ppShowTypeSpeaker
        .LoopUntilStopped = msoFalse
        .ShowWithNarration = msoTrue
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.SchemeColor = ppForeground
        .Run
    End With
 
    ' FERMER LA PRESENTATION TEST_01.PPT
    Application.Presentations("D:\Perso\Test_01.ppt").Close
End Sub

1) Cette macro est elle correctement écrite ?

2) Puis je passer en paramètres la présentation à ouvrir et la présentation à fermer ?

3) Comment modifier cette macro, pour qu'elle fonctionne avec mes présentations transformées en .pps ?

Car pour le moment, j'ouvre par exemple Test_01.ppt, je lance le diaporama et après je peux naviguer dans mes différentes présentations en mode diaporama grâce à la macro.

Merci d'avance pour votre aide.
A bientôt

[Philippe JOCHMANS]

Bonjour

1) Cette macro est elle correctement écrite ?

A priori oui

2) Puis je passer en paramètres la présentation à ouvrir et la présentation à fermer ?

Oui en transformant de la sorte

Code :

Sub Ouvrir_2_Fermer_1(strAouvrir as String, strAfermer as String)

Code :

Application.Presentations.Open FileName:=strAouvrir, ReadOnly:=msoFalse

Code :

 Application.Presentations(strAouvrir).Windows(1).Activate

Code :

Application.Presentations(strAfermer).Close

3) Comment modifier cette macro, pour qu'elle fonctionne avec mes présentations transformées en .pps ?

Je ne comprends pas ? Tu as essayé en utilisant des fichiers pps ?

Philippe

[Zak_92]

Bonjour à tous,

Merci Philippe de ta réponse rapide, claire et limpide.

Je ne comprends pas ? Tu as essayé en utilisant des fichiers pps ?

Oui j'ai essayé de transformer mes présentations .ppt en diaporama .pps en modifiant ma macro comme ci dessous, mais cela ne marche pas. Lorsque je clique sur les zones de textes où se trouve les liens vers mes .pps, rien ne se passe.

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub Ouvrir_2_Fermer_1()
    ' OUVRIR PRESENTATION TEST_02.PPT
    Application.Presentations.Open FileName:="D:\Perso\Test_02.pps", ReadOnly:=msoFalse
 
    ' RENDRE ACTIF LA PRESENTATION TEST_02.PPT
    Application.Presentations("D:\Perso\Test_02.pps").Windows(1).Activate
 
    ' FERMER LA PRESENTATION TEST_01.PPT
    Application.Presentations("D:\Perso\Test_01.pps").Close
End Sub

Merci d'avance pour ton aide.

Bonne journée.
A bientôt