Activer un onglet dès l'ouverture

Résolu/Fermé

dave38 - 5 mai 2009 à 18:42
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 6 mai 2009 à 10:55

Bonjour,

Je cherche à activer un onglet d'un classeur Excel (sous Vba) dès l'ouverture de celui ci, car les utilisateurs le ferment systématiquement sur le mauvais onglet, trompant l'utilisateur suivant.

Merci de votre aide pour ce truc facile, mais que je ne parviens pas à faire !!

Cordialement

David

A voir également:

Activer un onglet dès l'ouverture
Comment activer windows 10 - Guide
Activer le pavé tactile - Guide
Comment activer chromecast sur tv - Guide
Rouvrir un onglet fermé - Guide
Onglet privé - Guide

6 réponses

Réponse 1 / 6

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
5 mai 2009 à 19:01

Bonjour
a installer dans le module Thisworkbook de VBE

Private Sub Workbook_Open()
Sheets("nomdetafeuille").Range("A1").Select
End Sub

Réponse 2 / 6

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
5 mai 2009 à 18:59

Bonjour,

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

A+

Réponse 3 / 6

dave38
6 mai 2009 à 09:39

Merci pour votre réponse.

En fait, mon classeur a 2 feuilles, et le programme suivant fait partie de la seconde. Je voudrai y insérer une ligne de commande qui le fait revenir à la 1ère feuille en fin d'exécution. le problème est que je souhaite que le retour vers la 1ère feuille ne se fasse qu'après fermeture du classeur complet. merci de votre aide !!

Private Sub CheckBox1_Click()
Dim pdm1
Dim OFinterim
pdm1 = Sheets("AO").Range("AH138").Value
OFinterim = "Olivier_Feur_Intérim ."
Sheets("AO").Select
Selection.AutoFilter Field:=4, Criteria1:="OF intérim"
MsgBox "Bonjour " & OFinterim & "Votre Part de Marché sur les Flux Long Terme est de " & pdm1
CheckBox1 = False
End Sub

Réponse 4 / 6

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 mai 2009 à 10:06

le retour vers la 1ère feuille ne se fasse qu'après fermeture du classeur complet

?????
Si le fichier est fermé...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
6 mai 2009 à 10:45

Bonjour,
Bonjour Michel, en employant un petit détour....
A la fin de ta macros ajouter la ligne...

    Application.Quit

et dans le module de ta feuille...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveSheet.Name <> "Feuil1" Then
        Windows(ActiveSheet.Parent.Name).Visible = False
        Sheets("Feuil1").Activate
        Workbooks(ActiveSheet.Parent.Name).Save
    End If
End Sub

Private Sub Workbook_Open()
    Windows(ActiveSheet.Parent.Name).Visible = True
End Sub

dave38 : Bien sûr, remplacer "Feuil1" par le nom de ta feuille

A+

Réponse 6 / 6

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 mai 2009 à 10:55

Bonjour lermite,

OK, j'y avais pas pensé; c'est l'expression "après la fermeture" qui m'avait fait tilté!
Merci

Discussions similaires

Fortnite-A2F ne s'active pas sur mon compte PS4

Adobe Reader X - documents inaccessibles

Onglet disposition Excel ne s'affiche pas

Discussions similaires

Newsletters