Ouverture d'un classeur

J

JC de Lorient

Guest

• 2 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 2 Mars 2005

• #3

JC,

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

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 2 Mars 2005

• #4

re

tu mets ça dans this wookbook

JC

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 2 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 2 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 2 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 2 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 2 Mars 2005

• #9

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

 

Vote positif 0 Vote négatif

P

Philippe

Guest

• 2 Mars 2005

• #10

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

 

Vote positif 0 Vote négatif