S
Sébbb
Guest
Bonjour à tous,
En cherchant su r le forum, j'ai trouvé ce code de Thierry:
Sub EffaceMacro()
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then 'Je comprends pas trop a quoi ca sert?
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Ce code est sans pitié, il supprime tout USF,Modules et contenu de This Workbook. Or, dans mon cas, une fois executer ce code, il me faut encore réaliser une étape. Je voudrais donc savoir comment conservé un module ou this workbook intact pour terminé les macros qui s'y trouvent.
En gros, ce que je voudrais c'est que la macro 'exterminatrice' efface tout sauf un élément que je lui demande : un module ou This workbook.
Si quelqu'un a une solution, je vous serai reconnaissant de m'aider.
A bientôt
Sébbb.
En cherchant su r le forum, j'ai trouvé ce code de Thierry:
Sub EffaceMacro()
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then 'Je comprends pas trop a quoi ca sert?
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Ce code est sans pitié, il supprime tout USF,Modules et contenu de This Workbook. Or, dans mon cas, une fois executer ce code, il me faut encore réaliser une étape. Je voudrais donc savoir comment conservé un module ou this workbook intact pour terminé les macros qui s'y trouvent.
En gros, ce que je voudrais c'est que la macro 'exterminatrice' efface tout sauf un élément que je lui demande : un module ou This workbook.
Si quelqu'un a une solution, je vous serai reconnaissant de m'aider.
A bientôt
Sébbb.
