Workbook_BeforeSave un peu apres .........

[carlos]

Bonjour , je tourne en rond et ne voit sur aucun forum de réponse .
Pourtant une fois je me rappelle que quelqu'un avait traité ce sujet sur ce forum mais je n'arrive pas à le retrouver.

Comment faire pour que cette macro ne s'applique qu'apres avoir éte enregistrée une fois ??????????


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

EffaceCodeThisWbk

End Sub

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

 

[Creepy]

Bonsoir,

Dim Debut As Integer, Lines As Integer
On Error GoTo Suite
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
Debut = .ProcStartLine("Workbook_Open", 0)
Lignes = .ProcCountLines("Workbook_Open", 0)
.DeleteLines Debut, Lignes
End With

++

Creepy

 

[carlos]

bonsoir Creepy

une fois de plus yu me sauve la mise...

Merci