Discussion :

[blondelle]

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"

[blondelle]

Je viens de reussir a supprimer le 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
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

[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