Discussion :

[aldapal]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[SfJ5Rpw8]

essai un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aldapal]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

d'autres idées?

[SfJ5Rpw8]

peu-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aldapal]

Rebonjour,

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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