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 :
Et voila sur quoi je bloque dans un module VBA
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 <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>
Merci d'avance pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
NOTA : je suis actuellement avec Office 2007.
Partager