Problème avec getLabel d'un labelControl dans un Ruban
Bonjour à tous,
Après avoir lu et relu le tuto "Personnalisation du ruban: Les fonctions d'appel Callbacks" je bloque sur la fonction getLabel.
Dans mon ruban j'ai une "gallery" qui contient 3 boutons, chaque bouton correspond à la sélection d'un serveur informatique. Avec la fonction Callback onAction je lance une macro qui test la connexion avec un serveur, et j'aimerai retourner dans un labelControl, si oui ou non l'utilisateur est connecté au serveur.
Voila mon bout de code pour mon CustomUI :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="outils" label="Outils">
<group id="divers" label="Divers">
<labelControl id="version" label="Vers : BETA - V1"/>
<labelControl id="date_maj" label="MAJ : 12/10/2012"/>
<labelControl id="serveur_etat" getLabel="serveur_etat_getLabel" />
<separator id="separator_01" />
<gallery id="serveur_selection"
size="large"
label="Sélection du serveur"
onAction="serveur_selection_onAction"
image="serveur">
<button id="serveur_nantes" label="Serveur de Nantes" onAction="serveur_nantes_onAction" image="serveur" />
<button id="serveur_paris" label="Serveur de Paris" onAction="serveur_paris_onAction" image="serveur"/>
<button id="serveur_lyon" label="Serveur de Lyon" onAction="serveur_lyon_onAction" image="serveur"/>
</gallery>
</group>
</tab>
</tabs>
</ribbon> |
Et voila sur quoi je bloque dans un module VBA
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
'Callback pour le serveur de Nantes
Sub serveur_nantes_onAction(control As IRibbonControl)
'Selection du lien pour le serveur de Nantes
ServeurChemin = ServeurChemin_nantes
'Test de connexion
If ServeurOK(ServeurChemin) Then
ServeurConnecte = True
MsgBox "Vous êtes connecté au serveur de Nantes.", vbInformation <--A REMPLACER PAR getLabel avec serveur_etat_getLabel
Else
ServeurConnecte = False
MsgBox "Vous n'êtes pas connecté au serveur de Nantes.", vbExclamation <--A REMPLACER PAR getLabel avec serveur_etat_getLabel
End If
End Sub |
Merci d'avance pour votre aide.
NOTA : je suis actuellement avec Office 2007.