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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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