Discussion :

[jackfred]

Bonjour tt le monde,

J'effectue une récupération d'une requete à partir d'une macro sur excel.
Elle est toute simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton6_Click()
    Dim bd As Database
    Dim rs As Recordset
    Dim sql As String
 
    Set bd = OpenDatabase(ActiveWorkbook.Path & "\BaseAcces.mdb")
    sql = "Select * From Utilisateurs" ' WHERE Utilisateur='" & Utilisateur & "'"
    Set rs = bd.OpenRecordset(sql)
 
    Workbooks.Add
    With Worksheets("Feuil1").Range("A2")
    .CopyFromRecordset rs
    End With
End Sub

Ma question ne concerne que l'entete.

est-il possible de récupérer l'entete des colonnes? et comment?


Merci de votre aide


fred

[Pierre Fauconnier]

Bonjour

Je dirais que, a priori, tu connais la structure de ta base, et donc tu devrais être en mesure de nommer tes champs dans Excel

Code :

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

1
2
3
range("a1")="Identifiant"
range("b1")= "Nom"
...

Cela étant, voici un exemple dont tu pourrais t'inspirer, qui transmet les noms des champs dans les cellules de la première ligne ( en DAO, puisque c'est ce que tu utilises).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim MaBase As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim Cellule As Range
 
    Set MaBase = OpenDatabase("d:\données\bd2.mdb")
    Set rs = MaBase.OpenRecordset("select * from tmouvements")
    Set Cellule = Range("a1")
    For i = 0 To rs.Fields.Count - 1
        Cellule = rs.Fields(i).Name
        Set Cellule = Cellule(1, 2)
    Next i

Ok?

[jackfred]

Ok superbe...

J'ai utilisé la seconde méthode vu que les entetes pourrons changer.

Merci bcp

jackfred

[AlainTech]

Problème résolu, bouton !