Ouverture d'un classeur

[Philippe]

Bonjour mes seigneurs 🙂

Voila ma question :

Est-il possible à l'ouverture d'un classeur de se positionner sur une feuille bien particulière (Accueil) ???

et de mettre ttes les autres feuilles du classeur en caché ???

à vot bon coeur
Merci

et surtout n'hésitez pas à composer le 115

 

[JC de Lorient]

Bonjour a tous

pour ce qui est de l'ouverture du classeur :

Private Sub Workbook_Open()
Sheets('accueil').Activate
End Sub

concernant les onglets tu peux passer par options/décocher onglets de classeur

c une approche très simple a voir si ....

JC

 

[Philippe]

JC,

Je suppose que le Private Sub Workbook_Open()
je le colle dans ma page accueil ???

 

[JC de Lorient]

re

tu mets ça dans this wookbook

JC

 

[Philippe]

Excellent

Mais pour ce qui est du reste :

En plus de ma page accueil, G six autres feuilles

Il se peut tres bien que la personne qui va utiliser ce classeur se retrouve au moment de sauvegarder avec 3 feuilles d'ouvertes dont celle d'accueil !!!

donc j'aimerais les fermer toutes sauf celle d'accueil

je (vous/te) remercie

 

[JC de Lorient]

re

vu l'état de mes connaissances en VBA ( suis plus que débutant) je vé laisser le soin a qq'un de plus 'costaud' que moi faire ça
car c surement faisable

JC

 

[Philippe]

Impec JC, je te remercie quand même pour ta première info 🙂

 

[PascalXLD]

Bonjour

Alors dans thisworkbook comme le disait JC

Private Sub Workbook_Open()

for each ws in worksheets
if ws.name<>'Accueil' then ws.visible=false
next

End Sub

Voilà cela te masquera tes feuilles à l'ouverture et tu n'auras donc que la feuille Accueil visible.

On peut aussi remplacer le false de ws.visible=false par xlveryhidden mais cela te masque non seulement tes feuilles mais en plus empeche l'utilisateur de les réafficher par le menu mais à première vue ce n'est pas ce que tu veux.

Message édité par: Pascal76, à: 02/03/2005 08:47

 

[Philippe]

Nickel Pascal
je m'en va tester ça de suite !!!

 

[Philippe]

Pascal,

Apparement le fait de mettre ws.visible=false me positionne l'onglet Visible=0 - xlSheetHidden pour toutes mes feuilles différentes de Accueil

EXCELLENT