OLE et Application.run

Bonjour à tous,

J'essaye de faire la manipulation suivante en VBA :
Depuis une application Excel, j'en ouvre une deuxième avec la commande suivante :

Code:

---

Set excelDEV = CreateObject("Excel.Application")

---

ensuite j'ouvre un classeur dans ce excelDev de la façon suivante :

Code:

---

excelDEV.Workbooks.Open devFile, ReadOnly:=True, editable:=True

---

je vois bien mon fichier qui s'ouvre c'est bon. Maintenant j'essaye d'éxécuter une requête dans ce classeur avec la fonction suivante :

Code:

---

excelDEV.Application.Run "MaFunction", "mon param"

---

Le problème est que la fonction "MaFunction" contient la ligne suivante :

Code:

---

Application.Run("workday", Format(date, "yyyy/mm/dd"), 2)

---

qui doit convertir la date passé dans format en working day + 2 jours.
Cette fonction fait partie de l'add-in Analysis ToolPak

Et cette ligne ne passe pas: j'ai l'erreur suivante :

Citation:

---

The macro " cannot be found.

---

En cherchant un peu plus, je me suis rendu compte que cette erreur se reproduisait à chaque fois que je faisais un application.run dans mon excel ouvert en OLE.

Avez vous une idée permettant d'éviter ce problème.

Bonjour, ZorroKun,

Une idée comme ça,

Est-ce que ReadOnly:=True ne serait pas ce qui empêche de faire exécuter la macro?

Chordially

bonjour,

Essai (a adapter) :

Code:

---

Resultat = Application.Run("nomduclasseur.xls!workday",Format(date, "yyyy/mm/dd"), 2)

---