Ouvrir un fichier PowerPoint [Résolu]

[vbword]

Bonjour

J'ai demandé votre aide il y a quelque temps pour un UserForm sous Word.
J'ai eu besoin de faire ouvrir un fichier Excel par le clic sur une image, et il m'a été fourni le code suivant :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Image31_Click()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
 
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("Y:\IMT\Exploitation\Station Centrales Telesurveillance\Service\Dossier Formation\9-MATMUT Protection Juridique\nom du fichier")
'.....
End Sub

Je souhaite le même code mais pour ouvrir un fichier PowerPoint ... et je n'arrive pas à modifier mon code ci-dessus pour l'adapter.

Si vous pouvez m'aider... merci d'avance

[Heureux-oli]

Salut,

Le principe reste le même, on déclare un objet application, on lui affecte une application et on ouvre une présentation.

Code :

1
2
3
4
Dim pptApp As PowerPoint.Application
 
Set pptApp = New PowerPoint.Application
pptApp.Presentations.Open "monchemin"

[vbword]

Marche pô

J'ai repris ton code et adapté au mien, et il me met systématiquement le message d'erreur " Erreur de compilation dans le module caché : frmUserForm1 "

------------------------------------------------------------
En enlevant la sécurité d'accès, il me met le message suivant " Type défini par l'utilisateur non défini ", et voici mon code :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Image32_Click()
Dim appPpt As PowerPoint.Application
Dim Wb As PowerPoint.Workbook
 
Set appPpt = CreateObject("PowerPoint.Application")
appPpt.Visible = True
Set Wb = appPpt.Workbooks.Open("Y:\IMT\Exploitation\Station Centrales Telesurveillance\Service\Dossier Formation\9-MATMUT Protection Juridique\Présentation procédure.ppt")
'.....
End Sub

ou comme m'a donné Heureux-oli

Code :

1
2
3
4
5
6
7
Private Sub Image32_Click()
Dim pptApp As PowerPoint.Application
 
Set pptApp = New PowerPoint.Application
pptApp.Presentations.Open "Y:\IMT\Exploitation\Station Centrales Telesurveillance\Service\Dossier Formation\9-MATMUT Protection Juridique\Présentation procédure.ppt"
'.....
End Sub

[Heureux-oli]

Salut,

Il faut ajouter la référence Microsoft PowerPoint au projet.

[vbword]

Salut et merci pour ta réponse.

Envoyé par Heureux-oli

Il faut ajouter la référence Microsoft PowerPoint au projet.

Je ne comprend pas ce que tu veux dire

Mais pour ce formulaire, j'ai déjà la demande d'ouverture pour un fichier Excel sans avoir fait quoi que se soit de plus et ça fonctionne sans problème.
Et quand je veux adapter le code pour mon fichier Excel pour l'ouverture de mon fichier PowerPoint, ça marche plus ...

[Heureux-oli]

Salut,

Pour pouvoir profiter de l'intellisense, il faut travailler en Earlybinding et on déclare la bibliothèque utilisée dans les références du projet.
de cette manière, lorsque l'on tape le code, VBE propose la bonne syntaxe.

Mais c'est une question de goût !

[vbword]

Oula, ça devient trop technique pour moi ...

Là en fait mon besoin est juste comme suit : un clic sur l'image permet d'ouvrir un document PPt éxistant.

Bon c'est pas grave, je vais me passer de ce besoin

[Heureux-oli]

Salut,

Qu'est ce qui t'empèche de déclarer la bibliothèque dans ton projet ?

Outils => références => Microsoft PowerPoint

tu écris ton code et ensuite, si c'est ton souhait de redéclarer des objets, il suffit lorsque ton code est terminé et fonctionnel de le modifier.

Code :

Dim pptApp as PowerPoint.Application

devient

Code :

Dim pptApp As Object

[vbword]

Merci pour ton aide ... mais ça marche toujours pas.
J'ai bien fais comme tu m'a dis, déclarer dans Outils/Références
Ensuite voici le code que je saisi :

Code :

1
2
3
4
5
6
7
Private Sub Image32_Click()
Dim pptApp As Object
 
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Presentations.Open "K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.pps"
'.....
End Sub

ou

Code :

1
2
3
4
5
6
7
Private Sub Image32_Click()
Dim pptApp as PowerPoint.Application
 
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Presentations.Open "K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.pps"
'.....
End Sub

Il me met maintenant le message d'erreur suivant : en pièce jointe

[Heureux-oli]

Salut,

Heuuuuu

Aucun des deux codes que tu postes ne ressemble à ce lui que j'ai mis.
Tu mixes les méthodes.

Code :

1
2
3
4
5
Dim pptApp as PowerPoint.Application
 
Set pptApp = New PowerPoint.Application
 
pptApp......

[vbword]

Voilà ce que je saisi et toujours rien, toujours le message d'erreur :

Code :

1
2
3
4
5
6
7
8
Private Sub Image32_Click()
Dim pptApp As PowerPoint.Application
 
Set pptApp = New PowerPoint.Application
 
pptApp.Presentations.Open "K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.ppt"
'.....
End Sub

[vbword]

Bon ... j'ai trouvé ceci

Code :

1
2
3
4
5
6
Private Sub Image32_Click()
Dim pptApp As PowerPoint.Application
Set pptApp = CreateObject("PowerPoint.application")
pptApp.Visible = True
Set PPTDoc = PPTApp.Presentations.Open (K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.ppt)
End Sub

Mais j'ai maintenant un message du débogueur Erreur de compilation qui me dit " Erreur de syntaxe " ou " Attendu : séparateur de liste ou ) " en désignant les : derrière le lecteur K pour le chemin

[Heureux-oli]

Salut,

Ce code fonctionne chez moi sans aucun problème et j'ai juste appliqué ce que j'ai écrit dans mon premier message.

Code :

1
2
3
4
5
6
7
8
 
Dim pptApp As PowerPoint.Application
 
 
Set pptApp = New PowerPoint.Application
pptApp.Presentations.Open "c:\temp\avions.pptx"
 
pptApp.Visible = True

[vbword]

Alors là ... j'comprend pas ...
Je fais un copier/coller de ton code, et je change juste le chemin d'accès ... et toujours le même message d'erreur

[Heureux-oli]

Salut,

As-tu bien mis les " de chaque côté du chemin ?

Chez moi, le code tourne à merveille.

[vbword]

Envoyé par Heureux-oli

Salut,

As-tu bien mis les " de chaque côté du chemin ?

Chez moi, le code tourne à merveille.

Bonjour ... pardon pour la réponse tardive.
Oui j'ai repris ton code en changeant juste le chemin d'accès et toujours rien.
Je me permet de mettre le formulaire en pièce jointe, au cas où.

Le besoin est pour l'image Image32 (logo PPS et le texte Présentation procédure en dessous)
Si besoin de vérifier les Références-Project dans Outils, le mot de passe est station

Merci quand même

[Heureux-oli]

Salut,

T'as mis où le code pour PPT ?

[vbword]

Envoyé par Heureux-oli

Salut,

T'as mis où le code pour PPT ?

Oups ... j'ai dû mettre la version sans le code mille excuses
Je l'ai supprimé et remis en pièce jointe

[pgz]

Bonsoir.

Dans ton message du 23/02, tu donnes le code

Code :

1
2
3
4
5
6
Private Sub Image32_Click()
Dim pptApp As PowerPoint.Application
Set pptApp = CreateObject("PowerPoint.application")
pptApp.Visible = True
Set PPTDoc = PPTApp.Presentations.Open (K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.ppt)
End Sub

Tu as un espace entre Open et la parenthèse, et le chemin n'est pas entre double quotes.
Je pense que si tu avais suivi les recomandation d'Heureux-oli, tu aurais plutôt écrit

Code :

1
2
3
4
5
6
7
8
Private Sub Image32_Click()
Dim pptApp As PowerPoint.Application
Dim PPTDoc as PowerPoint.Presentation
 
Set pptApp = New PowerPoint.Application
'pptApp.Visible = True
Set PPTDoc = PPTApp.Presentations.Open("K:\Ateliers\Matmut Protection Juridique\PPT\ppt_prestation PMA_février 2011_correction.ppt")
End Sub

Cordialement,

PGZ

[vbword]

OK ... sauf qu'en faisant un copier/coller de TON code, le débogueur me dit toujours qu'il y a un problème dans la ligne où se trouve le lien ... et j'ai toujours le même message d'erreur ... !!!