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
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
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>
Si quelqu'un avait une idée...Ce serait vraiment très très cool
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
Bonne soirée
@ +++ Kris
Partager