Zackarry
Messages postés28Date d'inscriptionvendredi 13 juillet 2001StatutMembreDernière intervention 1 février 2002 30 janv. 2002 à 09:09
m'en demande pas + je suis malade aujourd hui !!
et g pas envie de chercher +.
'supprime tous le code du classeur thisWorkbook
Sub EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub