Ouvrir un power point depuis un userform excel

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:

---

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:

---

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

---

Qq'un pourrait il m'aider ?

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"

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

je n'ai pas le 10.0 dans ma liste

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:

---

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

---

Super merci :D

voici mon code, il marche.

Code:

---

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 :

Citation:

---

"F:\Test.pptx"

---

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

Merci

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:

---

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

Salut, il y a un tuto malheureusement inachevé à lire : ici
sinon une recherche

J'avais vu ce tuto

J'ai codé comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Cmd_X_Click()   Dim FichierPpt As String, pwpt As PowerPoint.Application, presppt As Object   'ChDrive "E" FichierPpt = "F:\Test.pptm" Set pwpt = CreateObject("PowerPoint.Application") pwpt.Visible = True   Set presppt = pwpt.Presentations.Open(Filename:=FichierPpt) presppt.SlideShowSettings.Run   If presppt.Close Then pwpt.Quit End If   Set presppt = Nothing Set pwpt = Nothing   End Sub

---

Le probleme est que le power point se ferme dès qu'il se lance.
Comment faire pour ne le fermer qu'à la fin de la présentation ?

Bonjour

une réponse ici : http://www.developpez.net/forums/d11...presentations/ ?

Ca y est, j'ai trouvé.
je suis resté sur ce code

Code:

---

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

---

et j'ai activé l'option sur PowerPoint : Visualiser sur une borne. J'ai également supprimé l'écran noir en fin de diaporama.
Du coup pour quitter le diaporama, il faut obligatoirement cliquer sur mon bouton FIN.
Il ne me reste plus qu'à trouver comment supprimer l'action du bouton ESC, et tout sera parfait.

A suivre ...