Discussion :

[romram]

Bonjour,
j'aimerai pouvoir récupérer les noms de toutes mes tables liées qui existent dans ma base Access pour les utiliser dans mon code VBA. Est-ce que cela est possible ?
Déjà, si quelqu'un a la solution pour simplement récupérer le noms de toutes les tables d'un fichier Access, ce serait déjà pas mal.
Merci

[Tofalu]

Oui, il faut boucler sur la collection TableDefs avec DAO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TableLiees()
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
 
Set oDb = CurrentDb
For Each oTbl In oDb.TableDefs
    If oTbl.Attributes And DB_ATTACHEDTABLE Then
        MsgBox oTbl.Name
    End If
Next oTbl
 
Set oTbl = Nothing
Set oDb = Nothing
 
End Sub

http://warin.developpez.com/access/dao

[romram]

merci, je vais tester si ca fonctionne.