OLE et Application.run

[ZorroKun]

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 :

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.

[chordially]

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

[aalex_38]

bonjour,

Essai (a adapter) :

Code :

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