Salut à tous,

En suivant les divers tutos et conseil du site, j'ai créé des "combobox" et "editbox" dans un onglet personnalisé.

Mais quand je veux récupérer les valeurs choisies dans les combo et l'edit...Oups !!! pas moyen.

J'ai donc modifié mon fichier XML pour que ces objets soient dans l'onglet "Compléments" pensant que l'accessibilité via VBA serait plus aisé.

Fichier XML
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
<mso:cmd app="olkexplorer" dt="1" />
<mso:customUI xmlns:x1="http://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui">
	<mso:ribbon>
		<mso:qat>
			<mso:sharedControls startFromScratch="false">
				<mso:control idQ="mso:FilePrint" visible="false"/>
				<mso:control idQ="mso:FileSaveAs" visible="false"/>
				<mso:control idQ="mso:SendReceiveAll" visible="false"/>
				<mso:control idQ="mso:UpdateFolder" visible="false"/>
				<mso:control idQ="mso:NavBack" visible="false"/>
				<mso:control idQ="mso:NavForward" visible="false"/>
				<mso:control idQ="mso:Delete" visible="false"/>
				<mso:control idQ="mso:Undo" visible="true"/>
				<mso:control idQ="mso:EmptyTrash" visible="false"/>
				<mso:control idQ="mso:FindContactCombo" visible="false"/>
				<mso:control idQ="mso:TabAddIns" visible="true"/>			
			</mso:sharedControls>
		</mso:qat>
		<mso:tabs>
			<mso:tab idQ="mso:TabAddIns" > <!-- label="AIRMOM" insertBeforeQ="mso:TabDeveloper"> -->
				<!--<mso:group id="Idgroup1" label="Airmom" autoScale="true">-->
				<mso:group id="Idgroup1" label="AIRMOM">
					<mso:box id="box01" boxStyle="horizontal">
 
						<!-- <labelControl id="LC02" label="Remettant" /> -->
							<mso:comboBox id="CB1" label="Airmom REC Type de reference" onChange="ChangeCB1">
								<mso:item id="it1" label="DealId"/>
								<mso:item id="it2" label="StructId LTN"/>
								<mso:item id="it3" label="TradeId"/>
							</mso:comboBox>
 
						<mso:editBox id="editBox01" label="TradeRef" onChange="RecupDonnee"/>
 
							<mso:comboBox id="CB2" label="Remettant" onChange="ChangeCB2">
								<mso:item id="it21" label="CALYPSO"/>
								<mso:item id="it22" label="MUREXV2"/>
								<mso:item id="it23" label="MUREXV3"/>
								<mso:item id="it24" label="SOPHIS"/>
								<mso:item id="it25" label="SUMMITOTC"/>
							</mso:comboBox>
 
							<mso:comboBox id="CB3" label="Product Type" onChange="ChangeCB3">
								<mso:item id="it31" label="Bond"/>
								<mso:item id="it32" label="Cap et Floor"/>
								<mso:item id="it33" label="Exotic"/>
								<mso:item id="it34" label="FRA"/>
								<mso:item id="it35" label="Future"/>
								<mso:item id="it36" label="FX Fwd"/>
								<mso:item id="it37" label="FX Option"/>
								<mso:item id="it38" label="FX Spot"/> 
								<mso:item id="it39" label="FX Swap"/>
								<mso:item id="it40" label="Listed Option"/>
								<mso:item id="it41" label="MM"/>
								<mso:item id="it42" label="Repo"/>
								<mso:item id="it43" label="Swap"/>
								<mso:item id="it44" label="Swaption"/>
							</mso:comboBox>
					</mso:box>
				</mso:group>
				<mso:group id="Idgroup2"  autoScale="true">
					<mso:button id="BtnValider" label="Valider" onAction="Projet 1.ThisOutlookSession.InfoSelection" size="small" visible="true"/>
				</mso:group>
			</mso:tab>
		</mso:tabs>
	</mso:ribbon>
</mso:customUI>
Les "Callback"
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
 
Option Explicit
Public gChoix As String, gChoix2 As String, gChoix3 As String
Public cible As String
 
Sub RecupDonnee(control As IRibbonControl, text As String)
    cible = text
    Debug.Print cible
End Sub
 
Sub ChangeCB1(control As IRibbonControl, text As String)
        gChoix = text
End Sub
 
Sub ChangeCB2(control As IRibbonControl, text As String)
        gChoix2 = text
End Sub
 
Sub ChangeCB3(control As IRibbonControl, text As String)
        gChoix3 = text
End Sub
 
Sub InfoSelection_1()
    MsgBox gChoix & " - " & cible & " - " & gChoix2 & " - " & gChoix3
End Sub
Si quelqu'un avait une idée...Ce serait vraiment très très cool

Bonne soirée

@ +++ Kris