Onglet ouvert et fermé par macro

Bonjour à toutes et à tous,

Quelqu'un pourrai t’il me dire si l’on peut ouvrir un onglet caché à partir d’une macro que l’on affectera à un objet, puis cacher ce même onglet quand on le désir ? toujours par macro.

Si oui un petit exemple sera le bien venu.

Cdlt,

.

Bonjour,

Avec ce code à associer à un bouton

Sub Cachemontre()
'Macro Dan pour Bilanne XL Pratique le 11/03/09
With Sheets("Feuil1")
If .Visible = xlVeryHidden Then
.Visible = xlSheetVisible
Else: .Visible = xlVeryHidden
End If
End With
End Sub

Amicalement

Dan

Edit : Feuil1 étant le nom de ta feuille

Re à tous,

M. Dan je te remerci.

Je repasse un peut plus tard (après les tests) pour boucler.

Cdlt,

.

Re,

Si j'osai, je demanderai si la feuille 1 peut être active ?

Cdlt,

.

re,

Comme ceci :

Sub Cachemontre() 
'Macro Dan pour Bilanne XL Pratique le 11/03/09 
With Sheets("Feuil1") 
If .Visible = xlVeryHidden Then 
.Visible = xlSheetVisible 
Else: .Visible = xlVeryHidden : .activate
End If 
End With 
End Sub

Amicalement

Dan

Re

Dan peux-tu jeter un œil stp, ça ne fonctionne pas.

https://www.excel-pratique.com/~files/doc/cache_montre.xls

Cdlt,

.

Re,

Ton fichier fonctionne bien. Quel est le pb ??

Si la macro ne fonctionne pas chez toi, vérifie ton niveau de sécurité par OUTILS / MACRO / SECURITE DES MACROS et coche la case "moyen" (ce que je conseille toujours)

Amicalement

Dan

Re,

Niveau de sécurité OK, mais la feuille 2 n'est pas active

Cdlt,

Bonsoir

Modifie comme ceci :

Sub Cachemontre()
'Macro Dan pour Bilanne XL Pratique le 11/03/09
With Sheets("f2")
If .Visible = xlVeryHidden Then
.Visible = xlSheetVisible
.Activate
Else: .Visible = xlVeryHidden
End If
End With
End Sub

Amicalement

Nad

Re,

C'est Ok encore merci Dan

Cdlt,