Compter le nombre de tables dans la base

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:

---

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

---

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:

---

1 2 3 4 5

Public Sub test() Dim Db As DAO.Database Set Db = CurrentDb MsgBox Db.TableDefs.Count End Sub

---

Philippe

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:

---

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")

---

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

Bonjour,

Workspace n'est déclaré nulle part.

Voici un exemple :

Code:

---

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

OK merci

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

Code:

---

1 2 3

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

---