Utilisation de VBScript avec Excel

Bonjour à tous!

Je désire faire rouler un VBScript qui ouvre un fichier excel, exécute une macro, et referme le fichier, mais j'ai un problème.

Ma macro utilise la macro complémentaire "Analysis Toolpack - VBA" afin de faire des histogrammes, et bien que cette macro complémentaire soit cochée dans Excel, lorsque je roule mon script, ça ne passe pas car le script n'active pas le toolpack.

Voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10

'//DÉBUT   Dim oExcel, oSheet Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True Set oSheet = oExcel.Workbooks.Open("template.xls") oExcel.Run "Update2" oExcel.Quit   '//FIN

---

Ma question est donc la suivante : est-il possible d'activer la macro complémentaire lors de l'appel d'Excel?

Merci!

essai un truc du genre :

Code:

---

1 2	oExcel.AddIns("Monxla").Installed = True

---

Merci pour le tuyau, mais ça ne fonctionne pas. :cry:

J'ai maintenant une erreur "Indice en dehors de la plage" à la ligne où j'ai mis

Code:

---

oExcel.AddIns("atpvbaen.xla").Installed = True

---

d'autres idées?

peu-être :

Code:

---

1 2 3

Set a = oExcel.AddIns.Add("monxla.xla") a.Installed = True

---

Rebonjour,

maintenant j'ai "Impossible de lire la propriété Add de la classe AddIns."...

il faut être sur de l'accès au fichier xla ... met le chemin complet:

Code:

---

1 2	Set a = oExcel.AddIns.Add("D:\Documents and Settings\pierre\Mes documents\DVP\VBs\Excel\MonXla.xla")

---