Bonjour,

Depuis quelques temps, je recherche à inscrire le résultat d'une requête SQL dans une plage de cellules, mais en vain.

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
Private Sub Connect()
    Dim oConn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim requete As Object
    Dim coll_i As Integer
 
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 5.2 ANSI Driver};" & _
        "SERVER=localhost;" & _
        "DATABASE=test;" & _
        "USER=root;" & _
        "PASSWORD=;" & _
        "Option=3"
 
    texte_SQL = "SELECT * FROM test"
    Set requete = CreateObject("ADODB.Recordset")
    Set requete = oConn.Execute(texte_SQL)
 
End Sub
J'ai essayé ce bout de code trouvé sur le net, mais rien n'y fait. Je n'ai aucun résultat qui s'affiche.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Sheets("Feuil1").Range("A1").CopyFromRecordset requete
Le but recherché est d'avoir au final le nom des colonnes et les données

Auriez-vous une solution ?


Merci