Bouton de commande powert point

[coudu]

Bonjour, j'aimerais ouvrir une présentation powert point avec une bouton de commande qui est sur une feuille excel.Mais cela ne marche pas...


Voici mon code:

Private Sub CommandButton3_Click()
Dim myfile As Variant

myfile = Dir("J:\bidon\Jérémie\Index\procedures\procédure nouvelle gamme.ppsx")
Do While myfile <> ""
myfile = Dir
Loop

je suis surement loin du véritable code...

 

[Pierrot93]

Re : Bouton de commande powert point

Bonjour Coudu

regarde les pages de MichelXLD🙂, et spécifiquement celle ci-dessous, permet le pilotage d'autres applis depuis Excel :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

bonne journée
@+

 

[coudu]

Re : Bouton de commande powert point

Quand je tape le code suivant, cela ne marche pas quiand je clique sur mon bouton...

Sub lancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""J:\bidon\Jérémie\Index\procedures""", 1)
End Sub

Merci pour ton aide

 

[Halffy]

Re : Bouton de commande powert point

Bonjour Coudu,
Jette un coup d'oeil ci-dessous:

Sub lancerPPT()
Dim Cible
Cible = Shell("POWERPNT.EXE ""J:\bidon\Jérémie\Index\procedures.ppt", 1)
End Sub

Chez moi, cela ouvre bien l'Application dans Power-Point (mais ne lance pas le visionnement automatique) / Ne pas oublier le -.ppt- à la fin de ton fichier.

Excuses-moi, Bonjour Pierrot93... avais pas vu que tu étais déjà en ligne de ci-bonne heure 😉

 

[Pierrot93]

Re : Bouton de commande powert point

Bonjour Coudu, Halffy

Pas de problème Halffy, ci dessous une autre solution pour lancer un power et le piloter via Excel :

Dim Ppa As Object, Ppp1 As Object
Set Ppa = CreateObject("PowerPoint.Application")
Ppa.Visible = True
Set Ppp1 = Ppa.Presentations.Open(Filename:="C:\MesDocs\PowerPoint\test.ppt")
Ppp1.Slides(2).Select

bonne journée
@+