Accéder à un onglet précis du ruban

Version imprimable

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:

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:

1
2
 
Set objCommandBar = objExplorer.CommandBars.Item("Menu Bar")

Par

Code:

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

30/04/2014, 10h10
Oliv-

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"
07/05/2014, 11h04
RobKris63
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:

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