Masquer les feuilles Excel sous condition

Bonjour à tous les lecteurs : Dans un projet je souhaite masquer toutes les feuilles de mon classeur sauf une bien sur celle nommée Connexion.
Je chercher sans succès une macro qui compte toutes les feuilles pour les masquer sauf la feuille nommée connexion qui correspond à la feuil1 dans le VBA project . Je précise que n'importe quelle feuille peut être renommée donc cela ne doit pas influencer le code VBA. Ici les noms de Feuilles sont des exemples. Pour bien me faire comprendre c'est la partie gauche qui m'intéresse et non la partie entre parenthèses. donc ici Feuil1
Je precise que je peux soi ajouter ou supprimer une feuille et bien sur toujours ne pas influencer le code.
Excel version 2021Pièce jointe 651318

Salut, je me base sur le codename de la feuille, dans ton cas c'est Feuil1. Le codename n'est accessible que via l'environnement vba, donc même si un utilisateur change le nom de l'onglet, Feuil1 reste accessible à la macro.

Code:

---

1 2 3 4 5 6 7 8

Sub MasquerFeuilles() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.CodeName <> "Feuil1" Then ws.Visible = xlSheetHidden End If Next ws End Sub

---

Bonjour Franc : Merci pour ta réponse efficace. En posant la question à Chat GPT il n'a même pas été capable de résoudre cette simple question.
Bon Week-End

Salut,

Sachant que les IA sont entrainée avec ce qu'on trouve sur internet,
et que beaucoup de ce qu'on trouve sur internet est douteux,
je ne leur fait pas confiance.

Bonjour deedolith,
Je ne partage pas du tout ce que tu as écrit.
J'ai une version payante de ChatGPT que j'utilise pratiquement tous les jours et je reçois un très bon code VBA. Aussi bien en Access, qu'en Word ou Excel et même avec Power Query
Par contre, il est évident qu'une personne ayant une faible connaissance de ces applications a peu de chance d'obtenir un résultat probant.

Hello Philippe

la version payante est "peut-être" plus "intelligente" mais, pour moi aussi, j'y trouve beaucoup de concetés, et en particulier sur les méthodes et propriétés qui n'existent pas mais qui le pourrait "logiquement".
Essaye de demander à chatGPT la procédure pour déprotéger les modules VBA en connaissant le mot de passe ; tout ce que j'ai pu avoir comme réponses étaient logiques mais avec des méthodes/propriétés inexistantes

Je suis donc d'accord avec deedolith, il est entrainé avec beaucoup de trucs totalement faux

Bonjour Jièl,
Effectivement au début, j'ai eu deux ou trois fois une réponse avec une propriété ou méthode inexistante et après l'avoir repris il m'a donné la réponse exacte.
Il y a deux, trois mois, il y a eu des faiblesses mais depuis, je n'ai plus de soucis
La qualité du Prompt est importante et lui donner le bon contexte. Dans la version payante, tu peux également créer un profil et lui indiquer la manière dont tu veux travailler comme insister de ne pas avoir d'Exit Sub, de traduire le code en procédure générique, etc.
Personnellement, j'en suis satisfait.

J'ai reposé la question avec exactement le même texte que dans mon post qui a été très bien comprise par Franc. Le résultat reviens avec un code beaucoup plus long et masque tous les onglets sauf la bonne feuille et avec un bug car il nomme toujours ma feuille Connexion au lieu de feuil1.
Perso je n'en ai pas une grande utilité et j'avoue que je ne suis pas un expert en VBA car mon Anglais est très mauvais et ce n'est pas à mon age que je vais l'apprendre.

Comme quoi ce forum étant d'une aide précieuse avec de bons experts dotés d'une bonne intelligence cela me vas bien.

Il est vrai que lorsque l'on pose une question, il est primordial quelle soit bien posée, mais souvent moi comme d'autre sommes pressés de poser notre question et ce n'est qu'après que l'on s'aperçois qu'on la posée.

Il faudra voir avec la sortie en France de la version Claude qui est apparemment plus alimenté car GPT s'arrête si ma mémoire est bonne à Janvier 2022
Pour ceux qui ne sont pas au courant voici le lien : https://www.youtube.com/watch?v=hhp0JkU2aJU

Pour le Fun dites moi ce que vous en pensez!!!