Access récupérer noms tables après code VBA

Bonjour,

Je fais du access basique et je suis nul en VBA, je pars de rien, désolé. Je souhaite récupérer le nom de toutes mes tables dans ma base Access sur un tableau
Toutes les requêtes trouvées font la même chose , afficher le nom des tables une par une via une MsgBox mais je ne sais pas où récupérer mes tables.

Faut-il faire une requête utilisant "test()" ? Si oui, pouvez-vous m'aider svp. Access me dit objet non défini pour test

Ma librairie "Microsoft DAO 3.6 Object Library" n'est pas coché car j'ai la "Microsoft Access 15.0 Object Library" déjà coché qui doit la contenir.

le code utilisé

Code:

---

1 2 3 4 5 6 7 8

Public Sub test() Dim Db As DAO.Database Dim tbd As DAO.TableDef Set Db = CurrentDb For Each tbd In Db.TableDefs MsgBox "Table : " & tbd.Name Next End Sub

---

Merci d'avance pour vos retours.

Flo

Bonsoir,
c'est plus simple avec une requête et une des tables système :

Code:

---

SELECT name from Msysobjects where type =1 and flags =0;

---

Merci beaucoup !!! ça fonctionne pour les tables non liés.

Dans ma base Access, j'ai des tables liées sur un serveur. Possible de les récupérer aussi avec un code de ce type ?

Merci d'avance

C'est bon en regardant le code, j'ai tout récupéré !!!

Merci beaucoup, vous m'avez fait gagner un temps précieux !!!

Encore merci.

Donc pour compléter avec mes tables liés sur serveur, mettre msysobjects=4 aussi en complément

Code:

---

1 2 3

SELECT Msysobjects.name, Msysobjects.[type], Msysobjects.[flags] FROM Msysobjects WHERE (((Msysobjects.[type])=1) AND ((Msysobjects.[flags])=0)) OR (((Msysobjects.[type])=4));

---