Lancer une macro excel depuis une macro powerpoint

Bonjour,

J'ai mes deux fichiers ouverts: Powerpoint et Excel et je cherche à lancer ma macro excel depuis une macro powerpoint
j'ai deja essayé ca mais ca ne fonctionne pas:

Code:

---

Application.run "fichier.xls!feuil2.macroexcel"

---

Mais il me dit sub or function not defined

Si quelqu'un à une idée

Merci

Toma

Bonjour,

Personne n'a une petite idée...

Bonjour !

Perso j'utilise cette macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub MacroExcel()   Dim MonObjet As Object Set MonObjet = GetObject("", "Excel.Sheet")   MonObjet.Application.Visible = True MonObjet.Application.Workbooks.Open "chemin de ton fichier" MonObjet.Application.Run "nom de ta macro"   Set MonObjet = Nothing End Sub

---

Tu peux vérifier si elle fonctionne, si oui, tant mieux, sinon, peut-être que ca t'éclairera ;)

Merci pour ton code,
Il marche mais seulement si le fichier n'est pas déjà ouvert.
Là ca me fait ouvrir une deuxième fois le fichier et donc je perds toutes les modifs du fichier.

Mais merci pour ton aide

je cherche...

Par contre je m'explique:
J'ai une première macro (vba powerpoint) dans un userform1 qui m'ouvre le fichier excel et exécute une serie d'opérations sur mes fichiers powerpoint et excel.
Et, ce que je veux c'est executer dans un userform2 une macro de ce même fichier excel (vba excel).

Donc, quand je mets dans mon userform2 simplement le code suivant:

Code:

---

1 2 3

Private Sub CommandButton1_Click() MonObjet.Run "ma_macro_excel" End Sub

---

Il me dit : "Objet requis"

Alors que ci je le mets dans le userform1 pour tester, ça marche.

Il doit falloir que je définisse quelque chose mais quoi?

Essaie en supprimant la ligne :

Code:

---

1 2	Set MonObjet = Nothing

---

Sinon je pense qu'il faut que tu définisses de quel Object tu parles (Feuille Excel, etc)

J'ai essayé en supprimant nothing ou d'autres lignes de ton code mais rien y fait.
Sinon pour définir Object tu as une idée?
Il faudrait que je définisse pour tout le fichier et pas un seul userform
mais je ne sais pas comment on fait

Bonjour,

Il y a quelque chose que je ne comprend pas.
Je suis sorti des userforms pour tout executer dans le même module.
Mais alors que je définis mes variables dans les déclarations, il est tout de même impossible de créer plusieurs sub.
Je vous montre avec mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim xlApp As excel.Application Dim xlBook As excel.workbook Sub test() 'lancer le fichier excel Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.workbooks.Open("chemin_du_fichier.xls") xlApp.Visible = True End Sub Sub valid() 'lancer valider de excel xlApp.Run "feuil2.valider" End Sub

---

Par contre, dès que je les regroupe (je supprime ce que j'ai mis en rouge)
ça fonctionne. Mais mon problème c'est que je ne doit pas les executer en même temps, d'où toujours ce même problème.

Merci