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