Afficher une page d'accueil

Signaler
Messages postés
24
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
15 septembre 2010
-
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour,
j'ai crée un userform pour ma page d'accueil et j'ai écrit dans Workbook:
Private Sub Workbook_Open()
Accueil.Show
End Sub
donc quand j'ouvre mon classeur à partir de mon bureau, le fichier s'ouvre mais affiche une feuille du classeur avant de terminer sur la page d'accueil.
comment faire pour afficher cette page directement.
Merci d'avance

4 réponses

Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
5
Salut dans tous les cas une feuille du classeur sera affichée avant ton userform vu que tu ouvre un classeur Excel!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Salut,

.. donc 2 possibilités :
1/ Tu fais un UserForm de la taille de l'écran
2/ Tu ne te sers pas d'un UserForm, mais tu crées un Onglet FeuilleAccueil, et à l'ouverture : Sheets("FeuilleAccueil").Select

@++


  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Messages postés
24
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
15 septembre 2010

Bonjour,
1/ c'est ce que j'ai fais mais dans le lancement il affiche une de mes feuilles avant de s'arrêter sur le UserForm
2/ j'y ai pensé mais comment masquer pour le fichier seulement toutes les barres d'affichage et asenceurs et aures, avec c'est pas terrible.
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
Re,

1/ tu peux, avant ton Form.Show, mettre Application.Visible = False  (soit prudent, faut le remettre à True après le Unload Form)
2/ met le plein écran : Application.DisplayFullScreen = True  (pareil, à mettre à False ensuite)

@++


  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~