Lancer une macro PPT à partir d'Excel

Version imprimable

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 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 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()
.....

06/10/2005, 08h42
magic8392

Salut,

Essaie de mettre à la place de oPPTApp.Visible = True de mettre oPPTApp.visible = msoTrue..

Je n'ai pas eu le temps de faire les tests. J'espère que ca va t'aider à résoudre ton pb.
06/10/2005, 09h47
Rabah

Problème de lancement de macro en PPT

Merci beaucoup de te pencher sur mon problème.

Malheureusement ça ne fonctionne pas, mais j'ai remarqué qu'il suffisait que j'ouvre et que je ferme le "Visual Basic Editor" lorsque Power Point s'ouvre pour que ça fonctionne bien. Alors je ne sais pas pourquoi, et je ne connaît pas non plus la commande pour ouvrir dans une macro le "Visual Basic Editor"

Merci beaucoup
06/10/2005, 11h44
Rabah

Lancement de macro PPT

Qu'appelles-tu "macro complémentaire"? et comment pourrai-je le vérifier?

Car en effet, visiblement lorsque Power Point se lance, il ne reconnaît aucune Macro. L'idée que j'ai eu a été de lancer le Visual Basic Editor, là où tu écris tes macro, mais je ne connaît pas la commande VB pour le faire.

Merci beaucoup à toi. (Il est nickel ton pseudo :D )

SOLUTION

La commande suivante est incomplète: Lancement = oPPTApp.Run(“WechPPT”)

Voilà ce qu'il faut mettre :
oPPTApp.Run ("G:\BOITE\Essai 1.PPT!WechPPT")

Et le code complet est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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") 
 
 
    oPPTApp.Run ("G:\BOITE\Essai 1.PPT!WechPPT")
 
    End With 
    Set oPPTPres = Nothing 
    Set oPPTApp = Nothing 
End Sub