Bonjour à toutes et à tous,

Je suis débutante en vba.
Actuellement, j'ai une listbox qui se remplit via un import d'une table d'une base access. Cependant, les champs se mettent directement et j'aimerais savoir comment faire pour que les noms de champs de ma table access s'affichent.

Je vous remercie d'avance de vos réponses
Louise

Voici mon code qui fonctionne bien actuellement

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
23
24
25
26
27
28
29
30
31
'Bouton sur la page d'accueil qui permet d'aller consulter la feuille contenant l'archivage des indisponibilités
Private Sub ConsulterArchivage_Button_Click()
    Application.ScreenUpdating = False
    Dim vCnx As New ADODB.Connection 'Accès ADO
    Dim vT_Arch As New ADODB.Recordset 'Visu table tab_indispo via accès ADO
    Dim vChp As Field
    Dim i As Integer
    Dim acc_prov, access_source As String
    fich_macro = "AMAPE Hydrant.xlsm"
 
 
    'Initialisation des liens avce access
    acc_prov = "microsoft.ACE.OLEDB.12.0" 'Provider pour la version 2010
    access_source = Workbooks(fich_macro).Worksheets("Paramètres").Range("BD")
 
    vCnx.ConnectionString = "provider=" & acc_prov & ";data source=" & access_source
    vCnx.Open
    vT_Arch.Open "tab_ArchivageIndispoHydrant", vCnx, adOpenDynamic, adLockOptimistic
    'Range(Range(Range("A2"), Range("A2").End(xlToRight)), Range("A2").End(xlDown)).ClearContents
    'Partie Aquérir les données
    With vT_Arch
        While Not .EOF
            If .EOF = False Then
                Arch_LB.AddItem .Fields("Numéro hydrant").Value
                .MoveNext
            End If
        Wend
    End With
    vT_Arch.Close 'libérer la zone mémoire de la table
    Set vT_Arch = Nothing 'vider l'espace mémoire de la table
End Sub