Exécuter une macro Excel depuis ppt

Bonjour,

Pour lancer la macro "enbas" du classeur distance.xls en partant d'un
Excel fermé.

Sub distance()
Dim appxl As Object
Set appxl = CreateObject("excel.application")
appxl.Run "distance.xls!enbas"
appxl.Quit
Set appxl = Nothing
End Sub


--
On apprend pas à un vieux singe à faire des grimaces
<lochechau@mairie-vigneux-sur-seine.fr> a écrit dans le message de
news:1115717511.072024.288330@f14g2000cwb.googlegroups.com...

Bonjour,
Je voudrais savoir quelles sont des instructions de VBA de
Powerpoint

qui permettent d'executer une macro Excel.
Merci d'avance

Chau

Bonjour Clément,
Merci de ta réponse. J'avais essayé aussi ces instructions, mais à
chaque fois quand il arrive à la méthode RUN, il me dit 'impossible
de trouver la macro enbas'
Que faire ?

D'autre part, j'ai besoin de charger Excel et le classeur excel en
mémoire et en arrière plan, derrière ppt, la macro de ppt doit
exécuter 'en silence' la macro Excel.

Merci encore

Chau (ça se prononce ciao!)

Bonjour,

Merci de ta réponse. J'avais essayé aussi ces instructions, mais à
chaque fois quand il arrive à la méthode RUN, il me dit 'impossible
de trouver la macro enbas'
Que faire ?

Chez moi, cela marche avec Office 2002 SP3. Tu as bien mis le bon de
la macro et le bon nom du classeur avec le "!" ?

Je te mets mes fichiers là en zip

http://cjoint.com/?fkuMZR5kW0

Si cela ne marche pas plus chez toi, je vais devoir regarder autre
chose

D'autre part, j'ai besoin de charger Excel et le classeur excel en
mémoire et en arrière plan, derrière ppt, la macro de ppt doit
exécuter 'en silence' la macro Excel.

Si Excel est déjà ouvert, emplace la ligne

set appxl = createobject("excel.application")

par

set appxl = getobject(,"excel.application") (ne pas oublier la
virgule)





--
On apprend pas à un vieux singe à faire des grimaces
<lochechau@mairie-vigneux-sur-seine.fr> a écrit dans le message de
news:1115741974.246389.101780@o13g2000cwo.googlegroups.com...
Bonjour Clément,


Merci encore

Chau (ça se prononce ciao!)

Bonjour Clément,
Finalement nous avons la même idée ; j'ai essayé les instructions
suivantes :
Dim AppXL as Excel.Application
Set AppXL = getobject(, "Excel.Application")
AppXL.ActiveWorkBook.Activate
AppXL.Run "Macro1"

et ça marche.

Merci encore. A bientôt

Chau