Worksheets(X).visible=True

[philppe27]

Bonsoir,

Existe-t-il une commande autre que celle de mon titre pour afficher un feuille masquée ?

Merci d'avance,

Cordialement

 

[Pierrot93]

Re : Worksheets(X).visible=True

Bonsoir Philippe,

oui, ceci :

Worksheets("nomfeuille").Visible = xlSheetVisible

ou bien :

Feuil1.Visible = xlSheetVisible

"Feuil1" étant le "codename"
bonne soirée
@+

 

[philppe27]

Re : Worksheets(X).visible=True

Merci pour ta réponse, mais je rencontre le même problème. A savoir, que lorsque j'utilise ce code dans Thisworkbook avec workbook_beforeclose cela ne marche pas lorsque je fais fermer mon fichier par une macro dans un autre fichier; Je ne sais pas si je suis bien clair....

 

[Pierrot93]

Re : Worksheets(X).visible=True

Re,

comprends pas, chez moi ce code fonctionne très bien même dans la procédure événementielle "Workbook_BeforeClose" placée dans le module "thisworkbook"...

bonne soirée
@+

 

[philppe27]

Re : Worksheets(X).visible=True

Ci-joint 2 fichiers
Tu constateras que lorsque tu lances la fermeture du fichier classeur1nettoyage de classeur2test les onglets b et c masqués ne s'ouvrent pas.
Par contre si tu fermes classeur1nettoyage à partir de ce même fichier les onglets b et c s'ouvrent sans problème

 

[Pierrot93]

Re : Worksheets(X).visible=True

Bonjour Philippe,

enlève déjà le "on error resume next", cette ligne de code permet de poursuivre l'exécution de la procédure même en cas d'erreur... Et comme les erreurs ne sont pas gérées, boujour les dégats....

D'autre part ta feuille b est masquée avec la valeur "xlVeryHidden", de plus celle-ci est protégée...

A noter, dans ce cas, il est préférable de protéger les feuilles par le code en utilisant l'argument "userinterfaceonly", ce qui permet de travailler par vba sur les feuilles sans avoir à les protéger / déprotégées....

bonne journée
@+