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

VBA Outlook Discussion :

Accéder à un onglet précis du ruban


Sujet :

VBA Outlook

  1. #1
    Membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2011
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2011
    Messages : 37
    Points : 48
    Points
    48
    Par défaut Accéder à un onglet précis du ruban
    Bonjour,

    En suivant ce tuto dans la faq on a accès à l'onglet "Complément", hors je voudrais avoir accès à un autre onglet.

    http://outlook.developpez.com/faq/?p...VBA_CommandBar

    Dans le code:
    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
    Private Sub Test_Application_Startup()
     
    'Déclarations desobjets
        Dim objExplorer As Outlook.Explorer
        Dim objCommandBar As Office.CommandBar
        Dim objControl As Office.CommandBarButton
     
        'instance des objets
        Set objExplorer = Outlook.ActiveExplorer
        Set objCommandBar = objExplorer.CommandBars.Item("Menu Bar")
        Set objCommandBar = objExplorer.CommandBars.Item("Airmom")
        Set objControl = objCommandBar.Controls.Add(, , , , True)
     
        'objet Control
        With objControl
         ....
         ....
         ....
        End With
     
        'libération des instances
        Set objExplorer = Nothing
        Set objCommandBar = Nothing
        Set objControl = Nothing
     
    End Sub
    Je voudrais remplacer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set objCommandBar = objExplorer.CommandBars.Item("Menu Bar")
    Par

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set objCommandBar = objExplorer.CommandBars.Item("MonOngletDejaCree")
    Mais ça ne fonctionne pas. J'ai donc essayé avec le numéro d'item mais en vain....

    Si quelqu'un avait une idée, ce serait super cool....

    Bonne journée

    @ +++ Kris

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Bonjour,
    Ce n'est pas possible.

    Il faut utiliser les nouvelles fonctions de personnalisation du ruban, c'est juste beaucoup plus compliqué.

    cherche dans l'aide à partir de vbe "Présentation de la personnalisation du Ruban"

  3. #3
    Membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2011
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2011
    Messages : 37
    Points : 48
    Points
    48
    Par défaut
    Salut Oliv,

    Merci pour ta réponse qui malheureusement confirme bien ma pensée.

    Via VBA j'ai bien accès à l'onglet "Compléments" quand ce dernier est affiché au dessus d'un mail ouvert.

    Par contre si je n'ai pas de mail ouvert, pas moyen d'avoir accès aux contrôles personnels ajoutés dans le ruban complément.

    Et... je n'y arrive pas non plus avec les "CallBack"...grrrr

    Dans

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set objCommandBar = objExplorer.CommandBars.Item("Menu Bar")
    Par quoi dois-je remplacer ".Item" pour avoir accès à ("Menu Bar").Controls(x).Valeur ?

    Bonne journée

    @ +++ Kris

Discussions similaires

  1. Réponses: 1
    Dernier message: 08/12/2009, 10h24
  2. Réponses: 2
    Dernier message: 19/10/2009, 11h37
  3. [AC-2007] Masquer l'onglet acrobat du ruban
    Par tomZH dans le forum Access
    Réponses: 2
    Dernier message: 15/06/2009, 17h19
  4. Réponses: 1
    Dernier message: 18/10/2008, 00h04
  5. Accéder à un onglet depuis le contenu d'une cellule
    Par flevielle dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 01/09/2007, 12h13

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