macro suppression module

[germain]

Bonjour,

Je cherche une macro me permettant deffacé un module dans le visual basic.
Je narrive qua effacer tout le projet ou une macro par une macro.

Merci d'avance

 

[MichelXld]

bonsoir Germain

tu peux tester


Sub supprimerModule()
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item('Module1')
End With
End Sub



bonne soiree
MichelXld

 

[germain]

merci michel

 

[bernardrustrel]

Re : Re:macro suppression module

bonsoir Germain

tu peux tester


Sub supprimerModule()
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item('Module1')
End With
End Sub



bonne soiree
MichelXld

Bonjour
J'ai teste tel quel et toujours meme souci ça se plante sur la ligne:
With ActiveWorkbook.VBProject.VBComponents en affichant erreur 1004????????????????????

Merci
Cordailement
Bernard

 

[Pierrot93]

Re : macro suppression module

Bonjour,

voir ici :
https://www.excel-downloads.com/threads/suppression-module.219634/

 

[ROGER2327]

Re : macro suppression module

Bonjour à tous.

Sub supprimerModule()
With Application.VBE.ActiveVBProject.VBComponents: .Remove .Item("Module1"): End With
End Sub

Bonne journée.


ℝOGER2327
#7287

Lundi 9 Palotin 141 (Saints Boleslas et Ladislas, polonais - fête Suprême Quarte)
9 Floréal An CCXXII, 5,9332h - hyacinthe
2014-W18-1T14:14:23Z

 

[Broch002]

Re : macro suppression module

Bonjour à tous.

Sub supprimerModule()
With Application.VBE.ActiveVBProject.VBComponents: .Remove .Item("Module1"): End With
End Sub

Bonne journée.


ℝOGER2327
#7287

Lundi 9 Palotin 141 (Saints Boleslas et Ladislas, polonais - fête Suprême Quarte)
9 Floréal An CCXXII, 5,9332h - hyacinthe
2014-W18-1T14:14:23Z

Bonjour, à copier dans un module
Sub AutoDestruct()
Call removeModule("Module1", ThisWorkbook.Name)
End Sub
Bonne soirée

 

[ROGER2327]

Re : macro suppression module

Re...

Bonjour, à copier dans un module

Sub AutoDestruct()
    Call removeModule("Module1", ThisWorkbook.Name)
End Sub

Bonne soirée

Bonjour,

À quoi sert-ce ?​

ℝOGER2327
#7288

Lundi 9 Palotin 141 (Saints Boleslas et Ladislas, polonais - fête Suprême Quarte)
9 Floréal An CCXXII, 6,5037h - hyacinthe
2014-W18-1T15:36:32Z