J'ai crée un bouton dans mon ruban pour afficher/masquer deux images, cette macro fonctionne impeccable sur la feuille avec un bouton (style commandButton) mais à partir du ruban le débogueur va sur le 2ème shapes de la 1ère ligne et me met "Sub ou Function non définie" :
Code:
Sub ImagesVisiblesInvisibles(ByVal control As IRibbonControl)
Shapes("Image 2").Visible = Not Shapes("Image 2").Visible
Shapes("Image 3").Visible = Not Shapes("Image 3").Visible
End Sub
Pouvez-vous m'aider à résoudre ce problème ?
D'avance merci pour vos réponses
Re : Problème Afficher/Masquer images à partir du Ruban
Bonjour,
peut être qualifier les objets "classeur" et "feuille", à voir... :
Code:
With Workbooks("Nomclasseur.xls").Sheets("Nomfeuille")
.Shapes("Image 2").Visible = Not .Shapes("Image 2").Visible
.Shapes("Image 3").Visible = Not .Shapes("Image 3").Visible
End With
Re : Problème Afficher/Masquer images à partir du Ruban
Re,
vu le type d'erreur, soit le nom du classeur, soit celui de la feuille est erroné... A noter tu es sous 2007 et tu mets comme extension de fichier ".xls"... peut être ".xlsm", non...
Bon à savoir : le nom de la feuille change automatiquement à chaque fois que je fais une facture ...
[Résolu] Problème Afficher/Masquer images à partir du Ruban
re,
Quel étourdi je suis !!!! bien sûr c'est xlsm. Et celà marche nettement mieux !! Et j'ai remplacé le nom de la feuille par ActiveSheet, et après essai celà marche impeccable !!
Encore un grand grand merci pour ton aide
Bon après midi