VBA Excel récupérer noms de tables Access [Résolu]

ce petit code te permet de lister l'ensemble des tables d'une BDD en fonction de son fichier (la variable chemin).
tu peux adapter cela pour récupérer les données dans un combo
j'espère t'avoir aidé...
Remarque : il faut référencer la Microsoft DAO library bien sur

Public Sub LISTE_TABLES(ByVal chemin As String)
Dim bdd As DAO.Database
Dim tbd As DAO.TableDef
Set bdd = OpenDatabase(chemin)
For Each tbd In bdd.TableDefs
Debug.Print tbd.Name
Next
bdd.Close
Set bdd = Nothing
Set tbd = Nothing
End Sub

Merci encore, ça marche super !!!
j'ajoute le code pour mon étape suivante : à savoir récupérer le nom des colonnes dans la table access définie par le code de yakov:

Sub Tables()

'référencer la Microsoft DAO library :
'Dans VBA : Outils\Références\Microsoft DAO 3.6 Object Library

Dim bdd As DAO.Database
Dim tbd As DAO.TableDef

Set bdd = OpenDatabase(Formulaire.chemin.Text)

For Each tbd In bdd.TableDefs
'ChoixTable est une combobox
Formulaire.ChoixTable.AddItem tbd.Name
Next

bdd.Close
Set bdd = Nothing
Set tbd = Nothing
End Sub

-------------------------------------------
Sub Parametres()

'référencer la Microsoft DAO library :
'Dans VBA : Outils\Références\Microsoft DAO 3.6 Object Library

Dim bdd As DAO.Database
Dim tbd As DAO.TableDef
Dim pbd As DAO.Field

Set bdd = OpenDatabase(Formulaire.chemin.Text)
Set tbd = bdd.TableDefs(Formulaire.ChoixTable.Text)

For Each pbd In tbd.Fields
'ChoixParametre est une combobox
Formulaire.ChoixParametre.AddItem pbd.Name
Next

bdd.Close
Set bdd = Nothing
Set tbd = Nothing
Set pdb = Nothing
End Sub

merci encore !
Guilja

Ca marche !!!!
Super merci !!
Merci beaucoup :')
je vais en profiter pour adapter ce code pour le nom des colonnes, une fois la table sélectionnée...

Merci encore :)

de rien, n'oublie pas de cloturer ce post.