supprimer un module en vba

[phil]

Bonjour

Quelqu'un connaitrait-il la procédure pour supprimer un module x dans un fichier y par l'intermédiaire d'un code vba ?

Je vous remercie

Philippe

 

[phil]

Je rajoute un problème supplémentaire, mon projet vba est protégé par un mot de passe et je ne sais pas déprotéger un projet en vba.

Merci

Philippe

 

[schmail]

Salut Phil et autres lecteurs

j'ai ça en stock (cela vient du site à Frédéric SIGONNEAU)
je ne l'ai pas tester mais si tu peux y trouver ton bonheur... @+

Sub SupprimerModules()
'papou, mpfe

Dim VBcomp As Object, TousComp As Object, CeProj As Object
Dim CetRef As Reference, WS As Worksheet

If ActiveWorkbook.Name <> ThisWorkbook.Name Then
Set CeProj = ActiveWorkbook.VBProject
Set TousComp = CeProj.VBComponents
For Each VBcomp In TousComp
With VBcomp
Select Case .Type
Case vbext_ct_StdModule, vbext_ct_ClassModule, vbext_ct_MSForm
TousComp.Remove VBcomp
Case vbext_ct_Document
.CodeModule.DeleteLines 1, .CodeModule.CountOfLines
End Select
End With
Next
End If
End Sub

 

[phil]

Merci mais ça ne fonctionne pas car je ne vois pas de changement. Quel est le nom du site de Frédéric SIGONNEAU ?
Quelqu'un aurait il une idée pour la question de la déprotection du module par vba ?

Merci à tous

Phil

 

[schmail]

Bonnes Paques à tous

Adresse du site de Monseigneur Sigonneau

http://perso.wanadoo.fr/frederic.sigonneau/

@+