Masquer un onglet - Macro toute simple

Bonsoir amis du forum,

Je viens de créer une macro tout simple pour fermer un masquer une page active, mais il semble que cela bug :( Une idée

Code:

---

1 2 3 4 5 6 7 8

Sub Afficher_Table_Matiere_Masquer_Page_Active()   Application.ScreenUpdating = False ActiveWindow.SelectedSheets.Visible = False Sheets("Table des matières").Select Range("B5").Select Application.ScreenUpdating = True End Sub

---

Merci à vous et bon

Bonsoir,

C'est la feuille qu'il faut masquer, pas la fenêtre.

Code:

---

1 2 3 4 5 6

Sub Afficher_Table_Matiere_Masquer_Page_Active() Application.ScreenUpdating = False ActiveSheet.Visible = False Sheets("Table des matières").Select Range("B5").Select End Sub

---

Cdlt

Bonsoir Arturo
J'ai testé, mais cela ne fonctionne toujours pas. Est ce que c'est parce que l'onglet est protégé ?
J'ai rajouté dans le code

Code:

---

1 2 3 4 5 6 7

Sub Afficher_Table_Matiere_Masquer_Page_Active() Application.ScreenUpdating = False ActiveSheet.Unprotect ActiveSheet.Visible = False Sheets("Table des matières").Select Range("B5").Select End Sub

---

Voilà le message que j'ai
Pièce jointe 593089

Si j'utilise la macro sans masquer la feuille active, cela fonctionne. Le bug est donc dans le fait de masquer la feuille active

Merci pour votre aide

Bonjour,

Dans quel module de quel fichier se trouve la macro ?

Bonsoir Patrice,
La macro se trouve dans module standard, puisqu'elle doit être affectée à plusieurs onglets.
Sur chaque onglet, j'associe cette macro à une forme. Le but est qu'à chaque fois qu'une feuille est ouverte et que je clique sur la macro qui permet de revenir sur la feuille "Table des matières", la feuille active se ferme automatique
Le but du fichier va être à terme d'avoir plus d'une centaine de feuilles et donc de pouvoir les fermer après chaque utilisation
Merci pour votre aide

Citation:

---

Envoyé par Patrice740

Bonjour,

Dans quel module de quel fichier se trouve la macro ?

---

Re,

Ta macro devrait fonctionner.

C'est la sécurité des macros qui interdit son fonctionnement.
Les macros sont-t'elles autorisées ? avec quelle option ?
C'est peut-être le mode protégé. Le fichier est-t'il dans un emplacement de confiance ?

Ceci dit on peut simplifier la macro :

Code:

---

1 2 3 4

Sub Afficher_Table_Matiere_Masquer_Page_Active() ActiveSheet.Visible = xlSheetHidden Application.Goto Worksheets("Table des matières").Range("B5") End Sub

---

Pour ma part j'évite d'utiliser les objets actif (comme ActiveSheet) chaque fois que c'est possible :
Dans un environnement multitâche, il y a toujours un petit risque aussi faible soit-t'il que dans la nanoseconde qui sépare le moment où on actionne le bouton et le moment où l'instruction sur l'objet actif est exécuté, l'objet actif ait été désactivé au profit d'un autre objet (par une autre tâche).

J'aurais utilisé une macro intermédiaire dans le module de feuille qui transfère la feuille en argument :

Code:

---

1 2 3

Sub Retour() Call Afficher_Table_Matiere_Masquer_Page_Active(Me) End Sub

---

Et dans un module standard

Code:

---

1 2 3 4

Sub Afficher_Table_Matiere_Masquer_Page_Active(wsh As Worksheet) wsh.Visible = xlSheetHidden Application.Goto Worksheets("Table des matières").Range("B5") End Sub

---