SUPPRIMER DANS THISWORKBOOK UN USER

Bonjour TONY, le forum,

Remplace la ligne d'enregistrement comme suit :

ThisWorkbook.SaveAs Filename:=Range('c5') & '.xls'

Le USF n'est pas supprimé mais le code qui le lance l'est (supprimé).


Abel.

Bonjour Tony, Abel, bonjour le forum,

Un lien plein de bonnes choses qui renvoie sur l'ancien forum... Saudades..

Bonjour Robert, Abel, Tony

Ah oui Robert merci pour ce fameux lien vers ce fil où je m'étais efforcé de recencer pas mal de méthodes de suppression de codes de macro, 'standards' ou 'évènementielles'.

Par contre je ne crois pas que j'avais abordé la question de Tony pour supprimer purement et simplement un UserForm.

Voici une suggestion :

Option Explicit

Sub UserFormKiller()
Dim UserFormName As String

UserFormName = 'UserForm1'


    With ThisWorkbook.VBProject
        .VBComponents.Remove .VBComponents(UserFormName)
    End With




End Sub

Cliquez pour agrandir...

Il est aussi interressant de noter que la même méthode peut s'appliquer à un Module Standard comme suit

Option Explicit

Sub ModuleKiller()
Dim ModuleName As String

ModuleName = 'Module2'


    With ThisWorkbook.VBProject
        .VBComponents.Remove .VBComponents(ModuleName)
    End With




End Sub

Cliquez pour agrandir...

Bon Appétit à tous et à toutes et pas trop de Beaujolais !
[ol]@+Thierry[/ol]

Re,

Rhô !

Robert (pour le fil) et Thierry (pour le boulot), merci !

Très très très utile tout ça.

Hop ! Copier/coller dans un p'tit .doc et direction mes utilitaires issus du forum.

Thierry (ou quelqu'un d'autre), une idée comme ça (je ne me sens pas de taille, encore qu'avec un peu de patience, de temps et de persévérance), on pourrait en faire une compilation.
Sous forme de complémentaire peut être avec un choix de la macro ou du projet à vider de ces macro....

Mais, bon. Juste comme ça, hein ... Hi hi !

Abel.