Lancer une macro dans PPT à partir d''Excel

Bonjour,

A partir d'Excel 2003, je crée une présentation PPT 2003 et exécute ensuite un code :

Code:

---

1 2 3 4 5 6

Set Pwpt = CreateObject("PowerPoint.Application") Pwpt.Visible = True Set PresPpt = Pwpt.Presentations.Open(Filename:=Templates_Path_id & "\" & Template_Name, Untitled:=msoTrue) Pwpt.Activate Pwpt.ActivePresentation.SaveAs File_id Pwpt.Run "Create_Statistiques_2_Entity_Depuis_Excel"

---

Ma macro "Create_Statistiques_2_Entity_Depuis_Excel" s'exécute bien si elle se trouve dans le document ppt créé (et donc à l'origine dans le modèle) mais elle ne s'exécute pas si elle se trouve seulement dans la macro complémentaire .ppa chargée dans PPT

Comment faire pour que la macro "Create_Statistiques_2_Entity_Depuis_Excel" soit recherchée dans la macro complémentaire et non dans le nouveau fichier ppt créé?

Merci

En fait, le problème semble venir du fait que la macro "Create_Statistiques_2_Entity_Depuis_Excel" est appelée alors que la macro complémentaire n'a pas encore eu le temps de se charger.

Si Powerpoint est déjà ouvert, cela marche

Comment puis-je contourner ce problème et attendre que la macro complémentaire soit chargée avant de poursuivre?

Merci

Bonjour

C'est juste une hypothèse, mais mets l'instruction DoEvents à la fin de ta macro complémentaire pour voir si cela change quelque chose.

Philippe

Ca a l'air de marcher

Merci

En fait ca ne marche pas à tous les coups

J'ai ajouté ceci avant l'appel de la macro PPT :

Citation:

---

For i = 1 To 1000: Next

---

et là ça marche, PPT a le temps de s'ouvrir