Lancer une macro PPT à partir d'Excel

Question

Bonjour,



 


Je voudrai lancer une macro attach&#233; &#224; un document Power Point &#224; partir d'un fichier Excel. 


Si je lance la macro de Power Point elle fonctionne, mais pas d&#146;Excel, SAUF si je l&#146;ai lanc&#233; au moins une fois de Power Point et que je n&#146;ai pas ferm&#233; Power Point.



 


Le message d&#146;erreur est le suivant :


&#147;Application (unknown member) : Invalid request. Sub or function not defined.&#148;




 


CODE :


D'excel :



 


Sub AutomatePowerPoint()


 


Dim oPPTApp As PowerPoint.Application


Dim oPPTPres As PowerPoint.Presentation


Dim sPresentationFile As String


sPresentationFile = "G:\BOITE\THT\Essai 1.PPT"


 


Set oPPTApp = New PowerPoint.Application


oPPTApp.Visible = True


Set oPPTPres = oPPTApp.Presentations.Open(sPresentationFile)


With oPPTPres = oPPTApp.Run("WechPPT")


 


Lancement = oPPTApp.Run(&#147;WechPPT&#148;)


 


End With


Set oPPTPres = Nothing


Set oPPTApp = Nothing


End Sub



 



 



 


Dans PowerPoint :



 


Public Sub WechPPT()


.....

Tuning Max · Answer

Pour moi j'ai en modifiant l&#233;g&#232;rement ton code &#231;a fonctionne sans probl&#232;me.
J'esp&#232;re avoir pu ainsi t'aider

Sub AutomatePowerPoint()
Dim PPTApp As Object
Dim oPPTApp As PowerPoint.Application


Set oPPTApp = New PowerPoint.Application


With oPPTApp
            .Visible = True
            .Presentations.Open ("c:	emp\Essai1.PPT")
            .Run ("Essai1.ppt!Module1.Macro1")
End With


End Sub

Lancer une macro PPT à partir d'Excel

1 réponse

Discussions similaires