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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas