Renseignements sur ThisWorkbook

[dj.run]

Bonjour à toutes et à tous

ça fait longtemps que je suis pas venu vous voir ! les vacances obligent !!

Je recherche la possibilité grace à un code de pouvoir effacer le contenu de ThisWorkbook : Private Sub Workbook_Open()

j'avais pour effacer le contenu d'un module mais je n'arrive pas à le modifier pour ThisWorkbook :

With ActiveWorkbook.VBProject.VBComponents("sauvegarde").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With

merci à tous pour votre aide

dj.run

 

[Jon]

Sub h()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub