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 : 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>
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
 
'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.