Discussion :

[ouskel'n'or]

Ok. Pour masquer toutes les feuilles sauf la feuille activée, tu dois connaître le nom de la feuille affichée précédemment.
Tu ajoutes l'identification de la feuille active afin de pouvoir la masquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub TxtChoix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nfeuil as string, NomFeuilleActive as string
    NomFeuilleActive = Activesheet.name
    nfeuil = trim(TxtChoix.text) 'on supprime les espaces éventuels
    Worksheets(nfeuil).Visible = True
    Worksheets(nfeuil).Activate
    Worksheets(NomFeuilleActive).visible = False
End Sub

Edit
Si tu as besoin de masquer toutes les feuilles sauf la feuille active, en fin de macro et à la place de

Worksheets(NomFeuilleActive).visible = False

tu mets ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each LaFeuille In ActiveWorkbook.Worksheets
     If Not LaFeuille.Name = nfeuil Then _
          LaFeuille.Visible = False
Next

[NEC14]

Ok. Pour masquer toutes les feuilles sauf la feuille activée, tu dois connaître le nom de la feuille affichée précédemment.
Tu ajoutes l'identification de la feuille active afin de pouvoir la masquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub TxtChoix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nfeuil as string, NomFeuilleActive as string
    NomFeuilleActive = Activesheet.name
    nfeuil = trim(TxtChoix.text) 'on supprime les espaces éventuels
    Worksheets(nfeuil).Visible = True
    Worksheets(nfeuil).Activate
    Worksheets(NomFeuilleActive).visible = False
End Sub

Edit
Si tu as besoin de masquer toutes les feuilles sauf la feuille active, en fin de macro et à la place de
tu mets ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each LaFeuille In ActiveWorkbook.Worksheets
     If Not LaFeuille.Name = nfeuil Then _
          LaFeuille.Visible = False
Next

J'ai trouvé la solution à mon problème. Dans WorkBook_Open() j'ai écrit cela Sheets(x).visible=XlSheetVeryHidden et ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub WorkBook_Open()
Dim X As Integer
Application.StatusBar = "Réalisée par René LE CORNEC"
Dim Cmdb As CommandBar
    For Each Cmdb In Application.CommandBars
    Cmdb.Enabled = True
Next Cmdb
    With Application
        .DisplayFullScreen = True
        .DisplayStatusBar = False
        .DisplayFormulaBar = False
    End With
    Sheets("1").Visible = True
    Sheets("1").Activate
    For X = 2 To Sheets.Count
    Sheets(X).Visible = xlSheetVeryHidden
    Next X
Load FrmChoix
FrmChoix.Show
End Sub

Merci pour votre aide à toi et à Garfael vous êtes super

[ouskel'n'or]

Ton code fonctionnera... ok ! mais il ne fonctionnera que tant que la feuille X sera en première position dans ton classeur...
C'est mieux quand on le sait

[NEC14]

Merci pour l'info. Les feuilles ne doivent pas changer de place. Je vais l'interdire.

Dernière question. Dans mes 52 feuilles j'ai 3 boutons (Fermer/Afficher/Semaine) avec un code appliquer à chacun.
Est-ce qu'il est possible d'avoir à un endroit un seul code pour chaque bouton, cela m'éviterai de répeter les codes sur les 52 feuilles.

[ouskel'n'or]

Jamais essayé mais si tu places ton code dans des macros placées dans un module standard et que tu appelles ces macros depuis chacun de tes boutons, ça devrait fonctionner...
Tu testes et tu nous dis... comme ça on aura la réponse

Edit
Tu aurais une autre solution : Créer tes trois boutons dans une barre d'outils que tu crées à l'ouverture de ton fichier pour les retirer à la fermeture.
Et là, tu as le code un peu partout, sur le forum, dans la FAQ et dans Contribuez
Plus besoin de bouton sur chaque feuille.

Si ça t'intéresse, fais une recherche avec "CommandBars"

[NEC14]

Je vais aller plutôt dans le sens d'une barre à outils à 3 boutons. Je ne maîtrise pas assez VBA pour me lancer dans les modules. Mais je vais quand même tenter à un autre moment sur une autre appli je te tiens informé du résultat.
A+

[ouskel'n'or]

Pour créer la barre d'outils, tu vas devoir te lancer... A part dans un module, je ne vois pas où tu peux mettre le code pour la créer et pour l'enlever ensuite.
Ce n'est pas compliqué : Dans l'éditeur VB, tu fais un clic sur ton projet -> Insertion -> Module
Epicétou
Il ne te reste plus qu'à mettre le code dans ce module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TaMacroPourTonBouton1()
    'Le code que tu as mis derrière ton bouton
end sub

Et derrière ton bouton, tu mets simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TonBouton1_Click()
     TaMacroPourTonBouton1
End sub

Et tu fais ça pour chaque bouton
Je ne sais pas si je t'aide mais je ne pouvais pas te laisser "comme ça"

[LeForestier]

Chose primordiale, tu déclare la variable nfeuille dans la macro, ce qui veux dire que chaques fois que tu rentre dans la macro la variable est réinitialisée à 0. Soit la mettre en variable générale pour l'UF soit la déclarer en 'Static'
A+

[NEC14]

Eh bien en fait j'ai créé un formulaire avec 3 boutons qui s'affiche dès l'ouverture du ficher, j'ai mis le code d'affichage dans ThisWorkBook. Pour le moment cela me satisfait. Mais j'essaierai quand même avec les modules. Je viens d'essayer avec les modules c'est pas mal non plus. Je crois que mes problèmes sont résolus à présent.
Merci à tous les développeurs qui ont contribués à la réussite de mon projet.
J'espère pouvoir renvoyer l'ascenseur un jour.
Encore mille mercis