Bonjour,

A partir de VBA Excel, j'ouvre une connection vers une database Access.

J'aimerais ensuite passer en revue toutes les tables de la base et sauver par exemple leur nom dans un vecteur.

Je pensais faire un truc du genre suivant, mais le type Table n'est apparamment pas reconnu.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    Dim myTables() As String
    Dim myTable As ?????? adCmdTable ou Table ????
    Dim myCount As Integer
    myCount = 0
    For Each myTable In myDB.Table
        myCount = myCount + 1
        myTables(myCount) = myTable.Name
     Next myTable