Discussion :

[citro]

Bonjour à tous

Je souhaite pouvoir ouvrir PowerPoint et lancer un slide lorsque je clique sur un bouton de mon userform dans Excel

Je suis novice en VBA et je galère depuis plusieurs heures.
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
sub PPTClick() 
 
Dim FichierPpt, pwpt, presppt 
FichierPpt = "F:\Utilisation du compresseur.ppt" 
Set pwpt = CreateObject("PowerPoint.Application") 
pwpt.Visible = True 
 
Set presppt = pwpt.presentations.Open(Filename:=FichierPpt) 
presppt.SlideShowSettings.Run 
 
end sub

Lorsque je lance clique sur le bouton, il ouvre powerpoint et me sort le message suivant :
Erreur d'exécution '-2147467259 (80004005)
PowerPoint could not open the file.

lorsque je clique sur déboguage, il me surligne la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set presppt = pwpt.presentations.Open(Filename:=FichierPpt)

Qq'un pourrait il m'aider ?

[QuestVba]

Bonsoir,

As-tu la bonne référence:

• Va dans VBA (Raccourci Clavier : Alt F11)
• Menu Outils/Références : Cochez "Microsoft PowerPoint 10.0 Object Library"

[citro]

j'ai déja coché "Microsoft PowerPoint 14.0 Object Library"

je n'ai pas le 10.0 dans ma liste

[kiki29]

Salut, tu es à priori en Late Binding donc aucune librairie "Microsoft PowerPoint xx.x Object Library" à cocher
ici ceci marche, à toi de l'adapter à ton contexte avec un ChDrive "F":

A lire : ceci

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
Option Explicit
 
Sub Bouton1_QuandClic()
Dim FichierPpt As String, pwpt As Object, presppt As Object
 
    ChDrive "E"
    FichierPpt = "E:\essai.ppt"
    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

[citro]

Super merci

voici mon code, il marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim FichierPpt As String, pwpt As Object, presppt As Object
 
    FichierPpt = "F:\Test.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

j'ai juste rajouté un x à la fin du nom de mon fichier :

"F:\Test.pptx"

Je souhaiterais maintenant qu'à la fin du diaporama, powerpoint se ferme tout seul.
Comment faire ?

Merci

[citro]

Bon alors, j'ai codé cela dans une macro dans powerpoint que j'affecte à un bouton Fin en bas de page de mon dernier slide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub MacroFin()
Application.Quit
End Sub

Et dans le code de mon userform excel, à la place de l'extension .pptx, il faut mettre .pptm (prise en charge des macros

Mon souci est que si on ne clique pas sur le bouton fin et que l'on passe à l'écran noir de fin, powerpoint ne se ferme pas automatiquement.

Quelqu'un a une idée ??

Merci