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 :

[VBA-E]Demande de précision sur les menus


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Inscrit en
    juin 2003
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : juin 2003
    Messages : 3
    Points : 2
    Points
    2
    Par défaut [VBA-E]Demande de précision sur les menus
    bonjour !

    je travaille sur un fichier excel
    à l'ouverture de ce fichier, je souhaiterais qu'apparaisse un petit bouton dans la barre d'outil qui donnerait accès à la macro que je suis en train de préparer.

    naturellement, je souhaiterais qu'il disparaisse lorsque le fichier est fermé de sorte qu'il ne puisse y avoir une confusion lorsque d'autres classeurs excel sont ouverts...

    comment faire ?

  2. #2
    Expert éminent
    Avatar de bidou
    Profil pro
    Inscrit en
    mai 2002
    Messages
    3 054
    Détails du profil
    Informations personnelles :
    Âge : 55
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : mai 2002
    Messages : 3 054
    Points : 7 416
    Points
    7 416
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars(1).Controls(Application.CommandBars(1).Controls.Count).Delete
    End Sub
     
    Private Sub Workbook_Open()
     
    Dim MonBouton As CommandBarButton
     
    Set MonBouton = Application.CommandBars(1).Controls.Add(msoControlButton)
    MonBouton.Style = msoButtonCaption
    MonBouton.Caption = "LegendeBouton"
    MonBouton.OnAction = "MaMacro"
     
    End Sub

  3. #3
    Candidat au Club
    Inscrit en
    juin 2003
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : juin 2003
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    et si je veux, en sortant du fichier, rétablir la config d'origine, et donc supprimer mon bouton, que fais-je ?

  4. #4
    Expert éminent
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2002
    Messages : 3 673
    Points : 8 522
    Points
    8 522
    Par défaut
    Euh, tu as lu ce que Bidou t'as donné
    Vous vous posez une question, la réponse est peut-être ici :
    Toutes les FAQs VB
    Les Cours et Tutoriels VB6/VBScript
    Les Sources VB6


    Je ne réponds pas aux questions techniques par MP. Utilisez les forums. Merci de votre compréhension

  5. #5
    Futur Membre du Club
    Inscrit en
    mai 2003
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : mai 2003
    Messages : 5
    Points : 6
    Points
    6
    Par défaut
    Dans ton Microsoftobject: This workbook sous la procedure
    Workbook_Open()

    tu utilises la fonction suivante pour faire apparaitre le petit bouton.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Application.CommandBars("nombarre").Controls(ID_controle).Add
    Et pour la supprimer
    dans la procedure suivante
    Workbook_BeforeClose()

    tu utilises la fonction suivante pour faire disparaitre le petit bouton.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
     Application.CommandBars("nombarre").Controls(ID_controle).Delete
    Pour modifier le bouton tu utilise la methode Onaction sur l'objets commandbars.controls

    Pour l'option des commandes, il ya l'aide de VBA qui est bien faite...

  6. #6
    Candidat au Club
    Inscrit en
    juin 2003
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : juin 2003
    Messages : 3
    Points : 2
    Points
    2
    Par défaut
    merci pour vos conseils, mon pb est résolu !!!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2003] Demande de retour d'experience sur les graphiques
    Par chrtophe dans le forum IHM
    Réponses: 3
    Dernier message: 31/01/2013, 22h17
  2. [DEMANDE] Création d'un Topic sur les relations humaines
    Par magnus2005 dans le forum Mode d'emploi & aide aux nouveaux
    Réponses: 4
    Dernier message: 30/11/2010, 10h20
  3. Réponses: 5
    Dernier message: 18/11/2009, 15h22
  4. Réponses: 0
    Dernier message: 14/11/2009, 14h55

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