youky(BJ)
XLDnaute Barbatruc
Bonjour à tous du forum,
Je souhaite supprimer les boutons et le code VBA se rapportant à ma feuille.
Sur ce fichier j'ai fait au plus simple
Mon code fonctionne bien sur mon PC Excel2007 mais plante sur les versions 2010
J'ai aussi indiqué de cocher en vba >outil >référence>...Microsoft Visual Basic for Extensibility....
Rien n'y fait sur 2010
Ceux qui possède 2010 peuvent tester.
Le code plante à>>>With ActiveWorkbook.VBProject.VBComponents
Bruno
Je souhaite supprimer les boutons et le code VBA se rapportant à ma feuille.
Sur ce fichier j'ai fait au plus simple
Mon code fonctionne bien sur mon PC Excel2007 mais plante sur les versions 2010
J'ai aussi indiqué de cocher en vba >outil >référence>...Microsoft Visual Basic for Extensibility....
Rien n'y fait sur 2010
Ceux qui possède 2010 peuvent tester.
Le code plante à>>>With ActiveWorkbook.VBProject.VBComponents
Code:
>
Sub Consolid()
Dim img As Object
If MsgBox("ATTENTION," & vbCr & "après avoir accepté la clôture de cet exercice," & vbCr & "il ne vous sera plus possible de le modifier." _
& vbCr & vbCr & "VOULEZ-VOUS CONTINUER ?", vbYesNo + vbExclamation, "CLOTURE COMPTE") = vbNo Then Exit Sub
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets _
(ActiveSheet.Name).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
For Each img In ActiveSheet.Shapes
img.Delete
Next
End SubBruno