Nom des colonnes pour exportation vers excelRésolu

Question

Bonjour,
Je voudrais savoir s'il est possible de r&#233;cup&#233;rer le nom des colonnes d'une table access, car je vais faire une exportation vers excel, mais ce n'est pas toujours les m&#234;mes champs qui sont export&#233;, ceux-ci sont choisi par l'utilisateur.
Donc, y a t-il une commande pour r&#233;cup&#233;rer le nom des colonnes??

Merci d'avance

michelxld · Accepted Answer

bonjour

cet exemple permet de lister le nom des champs d'une table nomm&#233;e "maTable"

Sub ListChampsTable()
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim i As Long
    
    Set Conn = New ADODB.Connection
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open ThisWorkbook.Path & "\MaBase_V01.mdb"
    End With
    
    Set rsT = New ADODB.Recordset
    With rsT
        .ActiveConnection = Conn
        .Open "SELECT * FROM maTable"
    End With
    
    For Each fld In rsT.Fields
    Debug.Print fld.Name
    Next fld
  
    Set rsT = Nothing
    Conn.Close
End Sub

bonne soiree
michel

Nom des colonnes pour exportation vers excel

1 réponse

Discussions similaires