Lier un User Form à une base de données Access

Bonjour,

J'ai une base de donnée avec plusieurs tables, je souhaite récupérer un champ et le mettre dans un menu déroulant d'un UserForm. J'aimerais que ComboBox1 par exemple prenne les valeurs dans le champ test de la table Tester ceci dès le lencement du programme.

J'ai déjà la liaison entre mon doc excel et access il me faut uniquement la requête dans le vba pour que la combobox prenne ces valeurs

Merci d'avance pour votre aide

Bonjour Man.403030

Après avori ajouté la référence Access dans VBAproject

Tu peux utiliser ce code (à adapter)

  Dim chemin_bd As String
  Dim base As Database
  Dim enr As Recordset
  chemin_bd = ThisWorkbook.Path & "\BdD.accdb"
  nettoyer
  Set base = DBEngine.OpenDatabase(chemin_bd)
  Set enr = base.OpenRecordset("SELECT DISTINCT NomChamp FROM NomTable ORDER BY NomChamp ASC", dbOpenDynaset)
  enr.MoveFirst
  Do
    Me.Combobox1.AddItem enr.Fields("NomChamp").Value
    enr.MoveNext
  Loop Until enr.EOF = True
  enr.Close
  base.Close
  Set enr = Nothing
  Set base = Nothing

@+