Discussion :

[andre-geneva]

Bonjour,

Je bloque sur une requête SQL server lancée via VBA. J'arrive à me connecter à la base mais je n'arrive pas à exporter le résultat sur excel.
Voici mon code:

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
Public Sub connexion_SQL_server()
    Dim cnx As Object, RecSet As Object
    Dim requete As String
    Dim valcel As String
    valcel = Excel.Range("Sheet1!A1").Value
 
    Set cnx = CreateObject("ADODB.Connection")
    With cnx
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={SQL Server};Server=xxx;" & _
            "Database=yyy;Uid=zzz;Pwd=aaa;"
        .Open
    End With
 
 
 
    Set RecSet = CreateObject("ADODB.Recordset")
    requete = "SELECT ... ID ='" & valcel & "'"
    RecSet.Open requete, cnx, 3 ' adOpenStatic
 
    Sheet1.Range("A2").CopyFromRecordset RecSet
 
 
    cnx.Close
    Set cnx = Nothing
    Set RecSet = Nothing
End Sub

Quelqu'un a une idée svp?
Merci d'avance pour votre aide

[Invité]

Bonjour,

je vois pas ou est ton problème.

Code :

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

1
2
3
4
5
6
7
8
With CreateObject("ADODB.Connection")
.Provider = "MSDASQL"
.ConnectionString = "Driver={SQL Server};Server=xxx;" & _
"Database=yyy;Uid=zzz;Pwd=aaa;"
.Open
Sheet1.Range("A2").CopyFromRecordset .Execute("SELECT ... ID ='" & valcel & "'")
.Close
End With