Bonjour,
 
Je voudrai lancer une macro attaché à un document Power Point à partir d'un fichier Excel.  
Si je lance la macro de Power Point elle fonctionne, mais pas d’Excel, SAUF si je l’ai lancé au moins une fois de Power Point et que je n’ai pas fermé Power Point.
 
Le message d’erreur est le suivant :
“Application (unknown member) : Invalid request. Sub or function not defined.”
 
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(“WechPPT”)
 
    End With
    Set oPPTPres = Nothing
    Set oPPTApp = Nothing
End Sub
 
 
 
Dans PowerPoint :
 
Public Sub WechPPT()
.....

Hé bé ça n'a pas été sans mal !!
M'enfin voilà :
 Set oPPT = CreateObject("PowerPoint.application" )
    oPPT.Visible = True
    Set PoPPT = oPPT.Presentations.Open("C:\PowerPoint.ppt" )
    ' La je lance la macro1() depuis excel dans PowerPont.ppt
    PoPPT.Application.Run "'PowerPoint.ppt'!Macro1"
 
 
Franchement j'ai cherché un bon moment avant de comprende pourquoi ca ne machait pas !... Hé oui, il faut "'Nom de la présentation' entre cote s'il vous plait puis !nom de la macro"...
Pourquoi faire simple quand on peut fair compliqué hein !
 
@+