Macro Harakiri

[Duriz]

Bonjour à tous,

Existe t'il une macro qui à une date précise (par exemple), suprime soit des macro entières soit un module... du genre un fichier démo qui s'auto détruit...

En vous remeciant par avance et dans l'attente de vous relire !

... Ca faisait longtemps (très même !!!!) que je n'avais pas surfé sur ED, mais c'est toujours aussi cool .... félicitations à tous les participants !!!!!!

a+
Duriz

 

[soft]

Bonjour Duriz, le forum,

Je ne suis pas sûr que ce soit le meilleur moyen, mais si t'es sûr de ce que tu fais, voilà une procédure qui supprime le nombre de lignes souhaités depuis un texte donné : par exemple 'Sub Test()',10

Private Sub KillLigne(Texte As String, Lignes As Integer)
    Dim i As Long
    For i = 1 To Application.VBE.CodePanes(1).CodeModule.CountOfLines
        If UCase(Trim(TexteLigne(i))) = UCase(Trim(Texte)) Then
            Application.VBE.CodePanes(1).CodeModule.DeleteLines i, Lignes
            Exit For
        End If
    Next i
End Sub

Pour supprimer le module complet ça doit exister, mais je ne l'ai jamais fait.

 

[Jam]

Salut Duriz, Soft,

Ce bout de code, à adapter à ton cas, devrait pouvoir t'aider:

'Supprime le module nommé Toto du classeur actif
Sub SupprModule()
    ActiveWorkbook.VBProject.VBComponents.Remove .Item('Toto')
End Sub

Bon courage

Message édité par: jam, à: 10/11/2005 19:50

 

[Duriz]

Merci à tous les deux pour la rapidité et la précision !!!!!

Bon weeeeeeeeeEEEEEEEEEEEEEEEK end !!!!

Duriz.