Récupérer le champ description dans une table

Salut,

Dans le but de documenter une base ACCESS dans un rapport de présentation, je cherche à récupérer les informations des champs visibles en mode création (Nom des champs, Type de données et surtout Description) dans une table access ou un classeur Excel.

Le but n'est pas d 'afficher uniquement ces informations dans l'interface d'ACCESS mais bien de générer une table automatiquement avec ces métadonnées facilement exploitable sous forme de tableau dans Excel ou Word.

Avant de poster ce message, j'ai trouvé une méthode qui affiche des infos sous forme de treeview, une autre sous forme de boîte de dialogue avec la fenêtre exécution de VBE. Cela ne répond pas à mes besoins et pourtant, je pense que plusieurs personnes ont déjà eu ce soucis.

Merci d'avance pour vos contributions.

Moussy

Bonjour,

Bon, c'est de l'ASP, mais l'idée est là :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Set Conn = Server.CreateObject("ADODB.Connection") Set FieldsRs = Server.CreateObject("ADODB.Recordset")   Conn.Open Session("DSN") SelectedTables = Split(trim(SESSION("SelectedTables")),",")   Set WS = server.CreateObject("DAO.DBEngine.36") set db = WS.Workspaces(0).OpenDatabase(Session("BDD")) For i = 0 to ubound(SelectedTables) ' Récupération des noms de champs SQL = "Select * from " & SelectedTables(i) & " where 1=2" fieldsrs.Open SQL, Conn, 0, 1 Set tb = db.TableDefs(Trim(selectedTables(i))) For j = 0 to fieldsrs.Fields.count-1 ' Remplissage de la liste Description = tb.Fields(fieldsrs.Fields(j).Name).Properties("Description").Value Response.Write "<option value=""" & selectedTables(i) & "." & lcase(fieldsrs.Fields(j).Name) & """>" & selectedTables(i) & "." & lcase(fieldsrs.Fields(j).Name) & " (" & GetFieldType(FieldsRs.Fields(j).type) & ")" & Description & vbcrlf Next Set tb = Nothing fieldsrs.Close Next   db.Close Set db = Nothing Set WS = Nothing   Conn.Close Set Conn = Nothing Set Conn = Nothing

---