Microsoft 365 Récupérer le nom des tables d'unebase de données access

  • Initiateur de la discussion Initiateur de la discussion José77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

José77

XLDnaute Occasionnel
Bonjour,
je souhairerai lister les noms des tables d'une base Access composant la base de données.
Je précise que je travaille avec ADO.
Je vous remercie par avance.
José
 
Bonjour,
Voici un exemple
VB:
Sub lister_tables_Access()
' Auteur : Pierre - P56 - http://tatiak.canalblog.com/
Dim BDD As String, lg As Integer
Dim Cnx As Object, Cat As Object, Tbl As Object

    BDD = "F:\... chemin ...\BaseAccess.accdb"

    Set Cnx = CreateObject("ADODB.Connection")
    Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
    
    Set Cat = CreateObject("ADOX.Catalog")
    Set Cat.activeconnection = Cnx
    
    lg = 2
    For Each Tbl In Cat.Tables
        If Tbl.Type = "TABLE" Then
            ActiveSheet.Cells(lg, 1).Value = Tbl.Name
            lg = lg + 1
        End If
    Next
    
    Cnx.Close
    Set Cnx = Nothing
    Set Cat = Nothing
    Set Tbl = Nothing

End Sub
P.
 
Bonjour,
Voici un exemple
VB:
Sub lister_tables_Access()
' Auteur : Pierre - P56 - http://tatiak.canalblog.com/
Dim BDD As String, lg As Integer
Dim Cnx As Object, Cat As Object, Tbl As Object

    BDD = "F:\... chemin ...\BaseAccess.accdb"

    Set Cnx = CreateObject("ADODB.Connection")
    Cnx.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD
   
    Set Cat = CreateObject("ADOX.Catalog")
    Set Cat.activeconnection = Cnx
   
    lg = 2
    For Each Tbl In Cat.Tables
        If Tbl.Type = "TABLE" Then
            ActiveSheet.Cells(lg, 1).Value = Tbl.Name
            lg = lg + 1
        End If
    Next
   
    Cnx.Close
    Set Cnx = Nothing
    Set Cat = Nothing
    Set Tbl = Nothing

End Sub
P.
Merci beaucoup. Tout fonctionne parfaitement. Maintenant il ne me reste plus qu'à comprendre ce code.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour