Probleme de destruction d'un Module importe par fichier OleWord

Version imprimable

J'ai poste un sujet sur l'importation d'un Module par fichier ce qui permet d'importer des codes assez importants.
Cette fonction marche je peu lancer la macro importee, mais je n'arrive pas a detruire ce module.
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Variant Appli, WordDoc, WordDocs, VBComp, vFileName;
Variant Module1, laMacro;
 
Appli = Variant::GetActiveObject("Word.Application");
vFileName = "c:\\book1.doc";
WordDocs = Appli.OlePropertyGet("Documents");
WordDoc = WordDocs.OleFunction("Open", vFileName);
 
VBComp =  WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents");
// on insere un code VB a partir d'un fichier
VBComp.OleProcedure("Import", "C:\\Documents and Settings\\blondelle\\Mes documents\\PROG_POUR_LA_FAQ\\COMPILE_OLE_WORD\\macro_essai.txt");
    vMSWord.OleProcedure("Run", "laMacro");
 
WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Remove").OlePropertySet("Item", "Module1");

le code VB:

Code:

1
2
3
4
 
    With ActiveDocument.VBProject.VBComponents
        .Remove .Item("Module1")
    End With

Quand j'execute le programme j'ai une erreur "NB de parametres non valide"

Je viens de reussir a supprimer le module.
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Variant Appli, WordDoc, WordDocs, VBComp, vFileName;
Variant Module1;
 
Appli = Variant::GetActiveObject("Word.Application");
vFileName = "c:\\book1.doc";
WordDocs = Appli.OlePropertyGet("Documents");
WordDoc = WordDocs.OleFunction("Open", vFileName);
 
VBComp =  WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents");
// on insere un code VB a partir d'un fichier
VBComp.OleProcedure("Import", "C:\\Documents and Settings\\blondelle\\Mes documents\\PROG_POUR_LA_FAQ\\COMPILE_OLE_WORD\\macro_essai.txt");
// on execute la macro
    vMSWord.OleProcedure("Run", "laMacro");
// on detruit la macro
VBComp.OleFunction("Remove", VBComp.OleFunction("Item", "Module1"));

Le code fonctionne mais ma file une sacree migraine

06/09/2006, 22h04
blondelle

Ce poste complete le poste "insertion d'un module OleWord".
Il est ajoute le lancement de la macro, et sa destruction, je remercie au passage les moderateurs de la FAQ VBA pour leur aide.
Je met un resolu de circonstance