Microsoft 365 Problème variable et recordset

[José77]

Bonjour à tous,
Encore une fois je me tourne vers vous pour essayer d'avoir un peu de lumière sur un problème que je ne comprends pas.
Je travaille sur un fichier fermé avec Ado et je veux remplir un combobox à partir d'une base Access.

Mon code est le suivant : UserForm1.ComboBox5.AddItem adorecordset!Categorie
ça fonctionne parfaitement sauf que je voudrais remplacer Categorie par une variable ce qui me donnerait la syntaxe suivante :
UserForm1.ComboBox5.AddItem adorecordset!UserForm1.ListBox1
et là ça ne fonctionne plus.
Quelqu'un pourrait il m'aider ?
Par avance, merci beaucoup.

José

 

[Wayki]

Bonsoir,
Avec le signe de concaténation & ?

adorecordset! & UserForm1.ListBox1 ?

Ou peut être bien

"adorecordset!" & UserForm1.ListBox1

Je connais pas trop Access mais c'est ce que j'aurais essayé
A +

 

[José77]

Merci Wayki
Malheureusement tout ça ne fonctionne pas. Tant pis on aura essayé.

 

[dysorthographie]

Bonjour,

Je travaille sur un fichier fermé avec Ado

un fichier Excel?

et je veux remplir un combobox à partir d'une base Access.

la combobox est dans ce fichier fermé?

UserForm1.ComboBox5.AddItem adorecordset!Categorie

que veux tu dire?

UserForm1.ComboBox5.AddItem adorecordset!UserForm1.ListBox1

c'est quel langage du VBA

UserForm1.ComboBox5.Column adorecordset.Getrows

ou alors dans le doute

Dim Champ as string
Champ ="Categorie"
UserForm1.ComboBox5.AddItem adorecordset(Champ)

explicite ta demande STP

 

[José77]

Bonsoir Dysorthographie
En réponse à tes questions : la base access se trouve dans un dossier avec le fichier Excel.
Le combobox se situe sur un userform.
Le nom des champs de la base se trouvent dans une listbox
En sélectionnant un champ dans la listbox je voudrais remplir le combobox.

Voilà je crois que j’ai correctement décrit le système.
En tout cas merci de t’être penché sur mon cas.

 

[dysorthographie]

Ok,donc sur ton userform tu as une liste box qui contient le nom de tous les champs de ta requête ?

Tu veux sélectionner un champ dans la liste pour alimenter une combobox ?

 

[José77]

Oui c’est bien ça.
Je croyais que ce serait facile mais je suis bloqué.

 

[dysorthographie]

de ce que j'ai compris!

With Me.ListBox1
    If .ListIndex > -1 Then
      Me.ComboBox5.AddItem adorecordset(.List(.ListIndex))
    End If
End With

 

[José77]

Merci beaucoup,
Ça fonctionne parfaitement . C’est absolument super.
José