Activer un onglet dès l'ouverture

Résolu
dave38 -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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
Configuration: Windows 2003 Internet Explorer 6.0

6 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour
    a installer dans le module Thisworkbook de VBE

    Private Sub Workbook_Open()
    Sheets("nomdetafeuille").Range("A1").Select
    End Sub
    1
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Private Sub Workbook_Open()
        Sheets("TaFeuil").Select
    End Sub

    A+
    0
  3. dave38
     
    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
    0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    le retour vers la 1ère feuille ne se fasse qu'après fermeture du classeur complet

    ?????
    Si le fichier est fermé...
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0
  7. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour lermite,

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