Supprimer un module

Bonjour

Voila je voudrais supprimer un module lors d'une condition avec ce code

Sub fin()
Dim NomMod As String

NomMod = "Principale_2"

ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents(NomMod)

End Sub

j'ai une erreur Impossible d'aller a Remove qui est caché ce que je n'arrive pas a comprendre

Merci d'avance pour vos réponse

Bonsoir,

Je ne pense pas qu'on puisse modifier du code VBA avec une macro. Ca semblerait un peu étrange.

A mon avis, la collection des composants est accessible uniquement en lecture.

Je n'ai pas accès chez moi à la propriété ActiveWorkbook.VBProject.

Avec un espion, la valeur de cette propriété est la suivante :

"<L'accès par programme au projet Visual Basic n'est pas fiable>"

Mais ce n'est qu'un avis, je n'en ai aucune idée.

Bouben

Bonsoir

De mes archives j'ai trouvé ceci

Je n'ai pas testé et je ne veux pas tester

Je te la livre telle quelle, il faut adapter mais cela ne devrait pas te poser de problème

'supprimer un module dont le nom est connu dans le VBAProject d'un classeur
Sub SupprModule()
'L Longre, mpfe

    Workbooks.Open "C:\Temp\Test.xls"
    On Error Resume Next
    With ActiveWorkbook.VBProject.VBComponents
        .Remove .Item("Toto")
    End With
    On Error GoTo 0
End Sub

@ bouben

Bien sur que l'on peut modifier du code par du code

Il faut cocher (XL 2007 et plus) Onglet Développeur --> Sécurité des macros --> Accès approuvé au modèle d'objet du projet VBA

Bonjour

Merci pour ta réponse

j'ai aussi "<L'accès par programme au projet Visual Basic n'est pas fiable>" donc je présume que ce code ne fonctionne pas sur excel 2013 peut être une autre alternative mais je suis pas assez bon en vba

Cordialement

bonjour

je n'avais pas vu ta dernière réponse je teste merci

Cordialement

Alors là, un énorme merci, Banzai64.

C'est tout simplement merveilleux mais aussi étonnant !

Ceci va me servir tous les jours dans mon boulot

Et tu peux supprimer le module dans lequel tu es en exécution ? Ca donne quoi ?

Et tu peux ajouter un composant et coder en dynamique?

Je n'attends pas de réponse, je jouerai dès demain au travail.

Mais c'est très puissant

Désolé pour mon erreur.

Bouben

Bonsoir

Merci pour ta réponse Bansai64

étant donné que le fichier est déjà ouvert

Workbooks.Open "C:\Temp\Test.xls

dois je le fermer en premier est rouvrir ensuite

Cordialement

Bonsoir

J'ai trouvé la solution merci à vous deux pour vos réponses

Cordialement