Liste des tables et du répertoire

Bonjour,

J'ai trouvé ce code sur votre site.

Function StockageListeTables()
  Dim db As DAO.Database
  Dim tdf As DAO.TableDef
  Dim rst As DAO.Recordset
 
  ' La base de données en cours
  Set db = CurrentDb
  
  ' Vider la liste actuelle des tables
  db.Execute "DELETE * FROM [tbl Tables];"
  
  ' La table de stockage
  Set rst = db.OpenRecordset("tbl Tables", dbOpenDynaset)
  
  ' Parcourir la liste des tables et les stocker
  ' On stocke toutes les tables sauf :
  ' - les table systèmes
  ' - la table tbl Tables
  For Each tdf In db.TableDefs
    If ((tdf.Attributes And dbSystemObject) = 0) _
      And (tdf.Name <> "tbl Tables") Then
      rst.AddNew
      rst("Nom Table") = tdf.Name
      rst.Update
    End If
  Next tdf
  
  ' On ferme !
  rst.Close
  Set rst = Nothing
  Set db = Nothing
End Function

Il fonctionne très bien, cependant j'aimerais aussi avoir le répertoire des tables. Certains tables sont locales, d'autres sont des tables liées soit à une autre base de données ACCESS ou à un fichier EXCEL. Alors j'aimerais bien pouvoir récupérer dans une table cette information.

Merci de votre aide