Bonjour, voilà dans un ruban j'ai créé un combobox

et dans une procédure je souhaite passer des valeurs à ce combobox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Ribbon_GetText(control As IRibbonControl, ByRef text)   
 
 
 
  Case "comboBox1"
 
 
     sql4 = "SELECT TXR.ANM From R_TOTAUXRAYON as TXR GROUP BY TXR.ANM ORDER BY TXR.ANM DESC"
     Set rs6 = CurrentDb.OpenRecordset(sql4)
     rs6.MoveLast
     text = rs6.Fields(0).Value

le combobox a bien comme valeur par défaut l'info que je souhaite en revanche évidemment la liste ne comporte pas
tout le recordset. En fait il n'y pas de liste.


j'aurais souhaité saisir cette ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
text.RowSource = Sql4
pour afficher tout le recordset dans ma combobox mais étant donné que text n'est pas un objet ça ne fonctionne pas

comment faire ?