Supprimer code VBA et boutons avec 2010... bug

[youky(BJ)]

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

>
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 Sub

Bruno

 

[Pierrot93]

Re : Supprimer code VBA et boutons avec 2010... bug

Bonjour,

perso peux pas ouvrir ton fichier... je suppose que tu as bien coché l'option de sécurité "accès approuvé au modèle d'objet du projet vba"...

bonne soirée
@+

 

[Pierrot93]

Re : Supprimer code VBA et boutons avec 2010... bug

Re,

Aarf j'ai du me planter, j'ai réussi à ouvrir ton fichier et le code a bien fonctionné... avec l'option indiquée...

 

[youky(BJ)]

Re : Supprimer code VBA et boutons avec 2010... bug

Bonsoir Pierre,
Si, si tu avais raison
La personne n'avais pas de cocher l'accès approuvé.
Parfait et Merci
Bruno