IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment afficher une seule feuille à l'ouverture d'un fichier


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Points : 984
    Points
    984
    Par défaut Comment afficher une seule feuille à l'ouverture d'un fichier
    Bonjour à tous,

    Voilà j'ai un classeur avec beaucoup de feuille et j'aimerai qu'à l'ouverture du fichier seule la feuille "Engagements" soit visible.
    Comment puis-je procéder sans écrire plusieurs lignes de code.
    Merci par avance

    Voici mon code d'ouverture :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Private Sub WorkBook_Open()
    Dim cmdb As CommandBar
    Dim vRep As Integer
           barre_menus_perso
                  Creation_MaBarre
           depart
    For Each cmdb In Application.CommandBars
    Next cmdb
        UFbonj.Show
    With Application
        .DisplayFullScreen = False
        .DisplayStatusBar = False
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .CommandBars("Standard").Visible = False
        .CommandBars("Formatting").Visible = False
        .CommandBars("Visual Basic").Visible = False
        .DisplayFormulaBar = True
        Sheets("Détail").Visible = False
        End With
    With ActiveWindow
        .DisplayHeadings = False
        .Zoom = 100
        End With
    Dim msg As String
    Dim insuf As Boolean
     
        Application.ScreenUpdating = False
    Test1
    End Sub

  2. #2
    Expert éminent
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Points : 6 699
    Points
    6 699
    Par défaut A
    Bonjour,

    Vois dans l'aide VBA à la propriété Visible et plus particulièrement à Type de données xlSheetVisibility => VeryHidden

    cordialement,

    Didier

Discussions similaires

  1. comment afficher une seul ligne sur un texte
    Par MR-SMOOT dans le forum Shell et commandes GNU
    Réponses: 7
    Dernier message: 03/08/2014, 17h08
  2. [MySQL] Comment afficher une seul fois un field s'il apparait dans plusieurs enregistrements
    Par pierrot10 dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 21/05/2009, 16h11
  3. Comment afficher un seul contour à une valeur particulière
    Par developpeur82 dans le forum MATLAB
    Réponses: 5
    Dernier message: 11/04/2007, 18h13
  4. Réponses: 8
    Dernier message: 19/10/2006, 09h47
  5. [Formulaire] comment afficher une feuille excel?
    Par helenafr dans le forum IHM
    Réponses: 6
    Dernier message: 16/06/2006, 13h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo