Ouverture d'une feuille

  • Initiateur de la discussion Initiateur de la discussion papycaen
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

papycaen

XLDnaute Nouveau
Bonjour,
J'ai un classeur avec 9 feuilles de calcul, je voudrais qu'à l'ouverture du classeur, la feuille 9, s'affiche toujours en 1er. je ne sais pas comment faire.
Merci pour votre aide.
Cordialement
 
Re : Ouverture d'une feuille

Bonsoir Papycaen

regarde le code ci dessous, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:
Private Sub Workbook_Open()
Sheets("Feuil9").Select
End Sub

ou Feuil9 est le nom de la feuille en question...

bonne soirée
@+
 
Re : Ouverture d'une feuille

Bonsoir Papycaen

regarde le code ci dessous, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:
Private Sub Workbook_Open()
Sheets("Feuil9").Select
End Sub

ou Feuil9 est le nom de la feuille en question...

bonne soirée
@+

Bonjour Pierrot93,

Merci de m'avoir répondu, le code fonctionne très bien.
Cordialement
 
Re : Ouverture d'une feuille

Salut Papycaen, Pierrot 🙂, Mercant76, le Forum

Juste une petite précision

Si c'est la dernière feuille que tu doit activer à l'ouverture (Ajout
éventuel de Feuille)

regarde ce Code

a mettre dans le Module ThisWorkbook

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(Sheets.Count).Activate
ThisWorkbook.Close SaveChanges:=True
End Sub
Ce sera toujours la dernière feuille du fichier qui sera activée
ou

Code:
 Private Sub Workbook_Open()
Sheets(Sheets.Count).Activate
End Sub
A L'ouverture du fichier c'est comme tu veut

Bonne Journée
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
70
Réponses
11
Affichages
57
Réponses
15
Affichages
505
Retour