Enregistrer dans une variable tableau le nom de toutes les tables

Le code qui suit permet de lister dans une variable tableau, le nom de toutes les tables d'une base de donnée externe.

L'argument "strBase" correspond au chemin complet de la base externe.

Dim tabNomTable() As String
Function LstTableInVariable(strBase As String)

Dim db As Database
Dim intTable As Integer
Dim tdf As TableDef
Set db = OpenDatabase(strBase)
intTable = 0
ReDim tabNomTable(db.TableDefs.Count)
For Each tdf In db.TableDefs
    intTable = intTable + 1
    tabNomTable(intTable) = tdf.Name
Next
db.Close: Set db = Nothing

End Function

Auteur : Jessy SEMPERE