problème de boutons à l'ouverture d'un fichier

  • Auteur de la discussion Fabrizio
  • Date de début
F

Fabrizio

Guest
Bonjour tout d'abord merci à tous les gens qui font vivre ce site,... Ensuite comme vous pouvez vous en douter mon problème :

j'ai mis ce code dans ThisWorkbook afin de faire disparaitre des boutons à l'ouverture du fichier

Private Sub Workbook_Open()
'je vais sur la feuille Impression
Sheets('Impressions').Select
'Je deprotege ma feuille
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
'j'essaye de faire disparaitre mon bouton
CommandButton1.Visible = False
'je reprotège ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

ce code 'plante' sur le du bouton ligne

CommandButton1.Visible = False

En gros il me dit 'run time error '424' Object Required

(le bouton existe bien :) ) et il est apparent

Est-ce que quelqu'un pourait me dire ou se situe mon erreur ?

D'avance Merci

Fabrizio
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Bonjour

essaies comme ceci

Private Sub Workbook_Open()
'je vais sur la feuille Impression
Sheets('Impressions').Select
'Je deprotege ma feuille
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
'j'essaye de faire disparaitre mon bouton
Sheets('Impressions').CommandButton1.Visible = False
'je reprotège ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bon courage
 
F

Fabrizio

Guest
Salut Pascal76,

Tout simplement merci, c'était ce qu'il me fallait.

Ciao et merci encore

Fabrizio
 

Discussions similaires


Haut Bas