ouverture d'un classeur sur une feuille précise

[luc]

Bonjour,

J'aimerais ouvrir un classeur excel sur une feuille précise à la maniere d'access afin de le rendre plus convivial

Est-ce possible ?

Je profite de ce message pour vous souhaiter à tous une bonne année 2005

Luc

 

[Brigitte]

Bonjour à tous, Bonjour Luc,

BONNE ANNEE AU FORUM​

Je suis émue, c'est mon premier post 2005 !


Alors voici une petite macro que m'a offert Jmps en 2004, tout récemment, car moi j'ai besoin que mon classeur s'ouvre sur la feuille principale (pour faire des fusions avec word) sinon tout plante.

On a d'abord pensé à toujours le fermer sur la feuille en question, mais avec les autres macros que l'on a, ca n'allait pas, alors Jmps a pensé à l'ouvrir sur la bonne feuille ainsi :


Private Sub Workbook_Open()
   Worksheets("Feuille à ouvrir").Activate
End Sub

Sinon pour le fermer obligatoirement sur cette feuille :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Sheets("Feuille sur laquelle fermer").Activate
End Sub


Ainsi, en cadeau de bonne année, tu as le choix entre les deux solutions...



A bientôt,

 

[didier]

Bonjour

ou

Private Sub Workbook_Open()
Sheets("aa").Select
End Sub

Bonne et heureuse année à toutes et tous

Didier

 

[luc]

Merci Brigitte,

J'ai crée la macro suivante :

Sub OuvertureFeuilleExcel()
Private Sub Workbook_Open()
Worksheets("SOMMAIRE").Activate
End Sub

Mais mon cadeau ne fonctionne pas, et Microsof Visual Basic s'en mêle
pour me dire :

Erreur de compilation

End Sub attendu
Que me veut-il ?

J'ai toujours mon problème d'ouverture d'une feuille dans un classeur

Meilleurs voeux
luc

 

[Brigitte]

Bonjour Luc,


Essaie d'enlever :

Sub OuvertureFeuilleExcel ()

ca doit être ca qui cloche, car tu mets deux fois le Sub....

Private sub Workbook open () est suffisant.


Bon courage

Brigitte

 

[jmps]

Bonjour Luc, Brigitte, didier,

Tu as juste mis un Sub en trop. Ca ça suffira :

Private Sub Workbook_Open()
  Worksheets("SOMMAIRE").Activate
End Sub

Si tu rajoutes Sub OuvertureFeuilleExcel(), Excel s'attend à un End Sub supplémentaire. En plus, des Sub imbriqués je sais pas ce que ça peut donner. Surement une erreur.

didier, c'est bien ton .Select mais je vois pas ce que ça apporte de plus.

Bonne année à tous.

José

 

[jmps]

Oups Brigitte !

J'ai pas regardé dans le rétro de la mob ! Sorry pour la bosse !

Bisous.

José

 

[luc]

Merci à tous les trois, problème résolu !!!


Luc