SUPPRIMER DANS THISWORKBOOK UN USER

[TONY]

Bonjour le forum
Pouvez vous m'aider sur la programmation du fichier ci joint
En quelques mots
Je souhaiterai ouvrir le fichier 'RELEVE', le completer et a la fermeture que celui ci se renome comme dans la programmation, mais en supprimant le userform apres la premiere utilisation.
Par avance merci de votre aide [file name=RELEVE_20051118105700.zip size=13839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RELEVE_20051118105700.zip[/file]

 

[Abel]

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.

 

[Robert]

Bonjour Tony, Abel, bonjour le forum,

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

 

[_Thierry]

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

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

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

 

[Abel]

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.