Discussion :

[blondelle]

il y a quelque temps j'avais demande si l'on pouvait ecrire et detruire une macro par code (voir le lien)
http://www.developpez.net/forums/sho...d.php?t=202392
cela marche tres bien pour de petits codes pour des codes plus volumineux j'importe un fichiers cela fonctionne bien par contre je ne sais pas detruire ce fichier importé y a t'il une solution.
le code que j'utilise devrait ressembler a ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Document.VBProject.VBComponents.Import  "MonFichier"

Je n'ai pas le code exacte de l'appel du fichier car le code est une adaptation de VB sous c++Builder.

[blondelle]

Excusez moi j'ai oublié de preciser que je travaille sous Word.

[blondelle]

J'ai trouve ceci sur internet mais je ne sais pas l'adapter apparement le code est fait pour supprimer plusieurs macro alors que je j'en ai qu'une seule a supprimer.
le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim VBC As VBComponent
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Name = nModule Then .VBComponents.Remove VBC
Next VBC
End With

Est-ce que quelqu'un peut m'aider SVP Merci.

[SilkyRoad]

bonjour

pour supprimer une macro spécifique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Debut As Integer, Lignes As Integer
 
With ActiveDocument.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("MaMacro", 0)
    Lignes = .ProcCountLines("MaMacro", 0)
    .DeleteLines Debut, Lignes
End With

michel

[blondelle]

SilkyRoad a ecrit:

bonjour

pour supprimer une macro spécifique

Merci pour ta reponse SilkyRoad.
Si je comprend bien le code il suprime le code de "MaMacro" mais ne detruit pas "Module1", c'est "Module1" que je voudrais detruire.

[SilkyRoad]

rebonsoir

qu'est ce que tu as indiqué dans le titre du fil de discussion?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blondelle]

SilkyRoad a ecrit:

rebonsoir

qu'est ce que tu as indiqué dans le titre du fil de discussion?

Oui excuse moi j'ai tellement fait de recherches et d'essais avant de poster que je ne me suis meme pas apercu de ma betise

[blondelle]

Merci SilkyRoad
Je viens de tester ton module fonctionne parfaitement je detruit bien le module de la feuille active