[PPT-2003] ouvrir diaporama pps à partir d'un autre pps par macro

[MarcelG]

Bonjour le Forum,

Je suis nouveau quant au développement VBA sur Powerpoint.

Je dispose d'une présentation ppt contenant cette macro

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ouvrir_Commun_1()
 
    'Ouvrir le fichier
    Presentations.Open FileName:="monrépertoire\maprésentation.ppt", ReadOnly:=msoFalse
 
    'Mode Diaporama
    With ActivePresentation
            .SlideShowSettings.Run
    End With
 
   SlideShowWindows(1).View.GotoSlide 1
 
End Sub

Cette procédure s'exécute par l'activation d'un bouton d'action.

Si je mets le mode de présentation en Diaporama, alors aucun problème. La procédure s'exécute. La seconde présentation s'ouvre.

Si j'enregistre celle-ci sous la forme diaporama pps, alors la procédure ne s'exécute plus. J'aperçois seulement le sablier pendant 2 secondes.

Comment résoudre ce problème qui, pour le moins, est étonnant.

[Philippe JOCHMANS]

Bonjour

Fais un

Code :

SlideShowWindows.Count

Pour voir le nombre de fenêtres car je pense qu'il faut passer à la deuxième instance.

Philippe

[MarcelG]

Bonjour le Forum,

Bonjour Philippe,

Tout d'abord, merci pour ta réponse.

Si j'active le logiciel Powerpoint puis ouvre le diaporama pps pour modification et intègre la ligne de code que tu m'indiques, soit

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Ouvrir_Commun_1()
 
Application.WindowState = ppWindowMinimized
    'Ouvrir le fichier
    Presentations.Open FileName:="monrépertoire\monfichier", ReadOnly:=msoTrue
 
    'Mode Diaporama
    With ActivePresentation
            .SlideShowSettings.Run
    End With
   SlideShowWindows(1).View.GotoSlide 1
 
Debug.Print SlideShowWindows.Count
 
End Sub

Alors, en éxécutant le code pas à pas, le second fichier s'ouvre bien et la fenêtre Exécution me retourne le nombre 1.

Bonne journée.