Liste des tables et du répertoire [Résolu]

- - Dernière réponse :  UemptLise - 30 janv. 2019 à 12:56
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
Afficher la suite 

1 réponse

Messages postés
8555
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 septembre 2019
424
0
Merci
bonjour, je pense que
tdf.Properties("Connect")
te permettra d'obtenir les informations que tu souhaites obtenir.
Commenter la réponse de yg_be