Bonjour à tous,
Je souhaiterai pouvoir effacer tout le code VBA (module, userform, ThisWorkbook ..) enregistré dans un classeur Excel.
Pour cela, j'ai essayé avec le code suivant :
Ce code efface bien toutes les macros enregsitrés, mais l'effacement n'est pas enregistré dans le classeur Test1.xlsm. Je retrouve dans ce classeur le code VBA que j'avais inscrit.
Une idée afin d'y parvenir ?
Merci
Je souhaiterai pouvoir effacer tout le code VBA (module, userform, ThisWorkbook ..) enregistré dans un classeur Excel.
Pour cela, j'ai essayé avec le code suivant :
Code:
Sub efface_vba()
Dim VBC As Object
Path = "C:\Users\456910\Desktop"
ActiveWorkbook().SaveAs Filename:=Path & "\Test1.xlsm"
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
'MsgBox "Modules et macros du classeur actif supprimés.", _
'vbInformation
ActiveWorkbook.Close SaveChanges:=True
End SubCe code efface bien toutes les macros enregsitrés, mais l'effacement n'est pas enregistré dans le classeur Test1.xlsm. Je retrouve dans ce classeur le code VBA que j'avais inscrit.
Une idée afin d'y parvenir ?
Merci