Comment extraire la liste des tables d'une autre BDD

**Looping_V60** · 02/07/2006, 23h16

Slt à tous,
Comme mis dans le sujet je voudrais afficher la liste de toutes les tables d'une autre base, dans une zone de liste modifiable de ma base.

Contexte:
Dans ma base je voudrais donner à l'utilisateur la possibilité d'importer une table parmis d'autres se trouvant dans une autre base (toujours la même, l'utilisateur ne dois pas choisir).
L'équivalent de : Tables/Nouveau/Importer la table/etc..." mais à la portée de l'utilisateur XYZ

Je vois rien dans la FAQ, si qqun à une idée.

**Looping_V60** · 04/07/2006, 03h57

La solution semble se trouver dans la commande
Docmd.DoMenuItem.acFile ... etc mais l'aide n'est pas trop explicite sur la gestion des menus , j'ai bien essayé d'improviser mais ...

**Arkham46** · 04/07/2006, 09h11

slt,

pour récupérer les noms des tables avec DAO :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim rdb As DAO.Database
    Dim lcpt As Integer
    Set rdb = OpenDatabase("LeCheminDeLaBaseDistante")
    For lcpt = 0 To rdb.Containers("tables").Documents.Count - 1
        Debug.Print rdb.Containers("tables")(lcpt).Name
    Next
    rdb.Close
    Set rdb = Nothing

**Muhad'hib** · 04/07/2006, 09h28

Salut,

Tu peux faire comme ça :

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
16
17
18
19
20
21
22
23
24
25
Public Function listetable() As String
 
Dim DB As DAO.Database
Dim Liste As String
Dim Chemin As String
Dim Tdf As TableDef
Chemin = "C:\Program Files\Réclamations\Faurecia_prog.mdb"
Set DB = OpenDatabase(Chemin)
For Each Tdf In DB.TableDefs
    If Left(Tdf.Name, 4) <> "MSYS" Then
        Liste = Liste & Tdf.Name & " ;"
    End If
Next
If Len(Liste) <> 0 Then
    listetable = Left(Liste, Len(Liste) - 2)
End If
Set DB = Nothing
Set Tdf = Nothing
 
End Function
 
Private Sub Form_Load()
Me.lb_test.RowSource = listetable()
 
End Sub

A+