Créer une macro Excel en VBScript

Version imprimable

Bonjour,

J'ai un script VBS qui importe des données d'un fichier texte dans une feuille Excel et qui met en forme les données.
Je souhaite maintenant créer une macro (module) Excel par VBS de façon automatisée. C'est à dire que le script VBS va créer, écrire et lancer une macro écrite en VBA.
Le début de mon script fonctionne mais j'ai un premier soucis (je pense que ce ne sera pas le seul) qui est le suivant :

Cette ligne m'embête car elle ouvre un autre classeur :
Code:

1 2 3 4 set fichxl = exl.workbooks.add 'Ajoute un module Set mdle = fichxl.VBProject.VBComponents.Add(1)
Alors que je voudrais que la macro se crée dans le classeur que je viens d'ouvrir avant. Voici l'ensemble du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 'Fichier à ouvrir Fichier_XLS = "C:\ControleDisque.xls" Set exl = WScript.CreateObject("excel.Application") exl.Visible = True 'False 'Ouverture du fichier exl.workbooks.open Fichier_XLS set fichxl = exl.workbooks.add 'Ajoute un module Set mdle = fichxl.VBProject.VBComponents.Add(1)
Lorsque j'effectue des modifs pour corriger le problème, j'ai beaucoup d'erreurs de manipulation d'Objet. Je ne doit pas être loin de la solution mais pour l'instant je coince.

En espérant d'avoir des infos pour trouver la solution.

Merci d'avance :mur:

03/09/2008, 17h45
SfJ5Rpw8

bonsoir, ghostvb

je suis un peu perplexe devant tes intentions, pourquoi créer une macro VBA puis l'exécuter .. tu peu agir directement sur ton classeur Excel avec ton script vbs !
03/09/2008, 18h11
ghostvb

Bonsoir bbil,

C'est dans une volonté de totale automatisation du script que je pensais faire de la sorte, pour qu'il s'exécute de façon transparente sans aucune intervention extérieure. Comme cela on peut intégrer ce que l'on veut ensuite (graphique,....) pour traiter les infos de la feuille Excel.
Mon idée est peut-être farfelue ? :cfou:
S'il existe un moyen plus facile, je suis preneur.
Que veux-tu dire par " tu peu agir directement sur ton classeur Excel avec ton script vbs " ?

Merci

On dit souvent que la nuit porte conseil car je viens de trouver ce matin en arrivant au boulot.
Voici un code pour ouvrir un fichier existant et écrire une macro vba le tout piloté par du VBScript :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
	Set exl = WScript.CreateObject("Excel.Application")
	exl.Visible = True 'False
 
	Set sh = WScript.CreateObject("WScript.Shell") 
	on error resume next
	sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\accessVBOM",1,"REG_DWORD"
	on error goto 0
 
'Ouvre le fichier 
	set fichxl = exl.workbooks.add("C:\ControleDisque.xls")
 
'Ajoute un module
	Set mdle = fichxl.VBProject.VBComponents.Add(1)
 
 
'Ecrit la macro dans le fichier Excel
	num=0
	num=num+1:mdle.CodeModule.InsertLines num, "Sub MacroMiseEnFormeImportTxt()"
	num=num+1:mdle.CodeModule.InsertLines num, "'"
	num=num+1:mdle.CodeModule.InsertLines num, "' MacroMiseEnFormeImportTxt Macro"
	num=num+1:mdle.CodeModule.InsertLines num, "' Macro enregistrée le 22/08/2008 par pl"
	num=num+1:mdle.CodeModule.InsertLines num, "'"
	num=num+1:mdle.CodeModule.InsertLines num, "'"
	num=num+1:mdle.CodeModule.InsertLines num, "End Sub"

Après à chacun d'y inclure ce qu'il veut dans sa macro ;)

04/09/2008, 09h22
SfJ5Rpw8

Citation:

Envoyé par ghostvb

...
Mon idée est peut-être farfelue ? :cfou:
...

en tout cas je n'en comprends pas le but .. la macro écrite par ton script va être lancée comment ? et quand (par rapport à son écriture) ?
04/09/2008, 09h47
ghostvb

Après son écriture, elle se lancera tout de suite et ensuite le fichier xls sera envoyé par mail à d'autres utilisateurs pour consultation ou analyse. C'est pour une analyse de charge de serveur de fichier qui sera exécuté en fond tous les jours. Je ne veux pas d'intervention par un utilisateur du début à la fin.

Si il y a d'autres solutions à explorer et plus simples, je suis preneur sans problème !!! :idea:
04/09/2008, 13h36
ced600

pkoi créer une macro ?
Tu pourrais plutot dans ton script créer une fonction qui fait ce que fait la macro, mais donc lancé par le script.

Je comprendrais l'intérêt de la macro si celle-ci se lançait automatique à l'ouverture du classeur reçu par l'utilisateur.
Par contre si tu exécutes la macro sur le classeur, avant de l'envoyer à l'utiliateur, elle n'a pas plus d'intérêt qu'une fonction VBS de ton script qui ferait les même opérations.
04/09/2008, 14h01
ghostvb

Si je comprends bien :

*script qui importe des données et crée le fichier Excel
Lance le script vbs "macro" qui effectue les traitements dans le fichier xls

*script "macro" du type :
fonction "ce que fait la macro"
(en vba ou en vbs ?)
...
...
end fonction

Citation:

Envoyé par ghostvb

Si je comprends bien :

*script qui importe des données et crée le fichier Excel
Lance le script vbs "macro" qui effectue les traitements dans le fichier xls

*script "macro" du type :
fonction "ce que fait la macro"
(en vba ou en vbs ?)
...
...
end fonction

Pas besoin de lancer un script, il a juste à faire appelle à une fonction qu'il possède.
Je rappelle qu'un script ce n'est pas juste une suite de ligne de code, il peut être stucturé ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 'Appelle le sub principale main 'Sub principale Sub main() 'Appelle f1 f1 'Appelle f2 f2 'Appelle f3 f3 End Sub 'Fonction f1 Function f1() End Function 'Fonction f2 Function f2() End Function 'Fonction f3 Function f3() End Function

Désolé de déterrer le sujet mais je voulais remercier ghostvb pour ça solution :ccool:
Ceci correspond exactement à ce dont j'avais besoin :mrgreen:
Pour répondre au question "mais à quoi cela peut-il bien servir ?", ben la réponse est déjà dans la proposition de bbil

Citation:

la macro écrite par ton script va être lancée comment ? et quand (par rapport à son écriture) ?

La macro que j'ai besoin d'écrire sera exécutée dans le futur à une date dont je ne connais pas la valeur.
Exemple sur mon cas :
Je fais un script qui interroge une base de données changeante (en fait je reçois des copies de la bases de données, c'est pour ça que je ne peux pas y inclure du VBA et que j'ai réalisé mon script en VBS).
Ce script génère des excels et par exemple des tcd.
Mais bon le gros problème des tcd, pour moi, c'est que le choix des options est caché, du coup c'est une source d'erreur. (genre mince j'avais oublié que j'avais préselectionné ceci au début, j'ai plus qu'à tout refaire :?)
Donc je veux réaliser (je l'ai pas encore fait mais j'y travaille), une macro VBA, ce coup-ci qui lors d'une modification de selection dans les champs du tcd, elle mets à jours un autre tableau qui indique la valeur des différents choix :) .
L'exécution de cette macro et de mon script sont indépendant dans le temps :) ("presque indépendant", en fait. Il faut quand même que mon script est était lancé avant la macro, en tout rigueur :mrgreen:)

Rajout d'une petite précision qu'il m'a fallut chercher.
Si vous voulez ajouter un code VBA qui réagit à un événement vous devez le faire dans la feuille excel correspondant du coup le code devient:
Code:

1 2 3 4 5 6 7 8 Set mdle = objExcel.Workbooks(1).VBProject.VBComponents(xlsheet2.name) num=0 num=num+1:mdle.CodeModule.InsertLines num, "Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)" num=num+1:mdle.CodeModule.InsertLines num, "'" num=num+1:mdle.CodeModule.InsertLines num, "MsgBox ""Le TCD '"" & Target.Name & ""' a été mis à jour.""" num=num+1:mdle.CodeModule.InsertLines num, "End Sub" num=num+1:mdle.CodeModule.InsertLines num, "'"
par exemple :)