Discussion :

[Rabah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()
.....

[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.

[Rabah]

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

[Rabah]

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 )

[Rabah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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