Discussion :

[ac264]

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

[Invité]

Bonjour

As-tu été consulté la FAQ Access ? Car je suis sûr que tu trouveras ton bonheur ici : http://access.developpez.com/faq/?pa...lds#NomChpsTbl

Un exemple

Code :

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

1
2
3
4
5
Public Sub test()
Dim Db As DAO.Database
Set Db = CurrentDb
    MsgBox Db.TableDefs.Count
End Sub

Philippe

[ac264]

Merci pour le lien
Il y a effectivement pas mal d'info.

Cependant, je ne sais pas utiliser "Currentdb" car j'ouvre "fictivement" la base Access à partir d'excel.

Quand j'utilise le code suivant, il me met chaque fois "Object required"
Comment lui spécifier la base sur laquelle il doit travailler?
Merci

Code :

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

1
2
3
4
5
6
7
8
 
 
 
    Dim myDB As DAO.Database
    Dim myDBname As String
 
    myDBname = "DB_MKTANALYSIS.mdb"
    Set myDB = Workspace.OpenDatabase(myDBname, False, True, "MS Access")

[Invité]

Re

As-tu consulté la FAQ Excel ? Comme cet exemple : http://excel.developpez.com/faq/inde...ortTableAccess

Il faut référencer la bibliothèque DAO 3.6

Philippe

[Tofalu]

Bonjour,

Workspace n'est déclaré nulle part.

Voici un exemple :

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
Sub test()
Dim oE As DAO.DBEngine
Dim oWs As DAO.Workspace
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim i As Integer
 
Set oE = New DAO.DBEngine
Set oWs = oE.CreateWorkspace("MyWorkSpace", "admin", "", dbUseJet)
Set oDb = oE.OpenDatabase("C:\tutoMCD.accdb", True)
For Each oTbl In oDb.TableDefs
    If (oTbl.Attributes And dbSystemObject) = 0 Then
        i = i + 1
    End If
Next
 
oDb.Close
 
Set oDb = Nothing: Set oE = Nothing
 
MsgBox "Il y a " & i & " tables dans la base de données"
End Sub

A noter que si on souhaite ouvrir une base au format 2007 ou 2010, il est nécessaire de remplacer la référence Microsoft DAO par Microsoft Office 12.0 (ou 14.0) Access Database Engine Object

[ac264]

OK merci

Si je met ce code-ci, cela semble résoudre mon problème

Code :

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

1
2
3
 
 
Set myDB = DAO.OpenDatabase(myDBname, False, True, "MS Access")