Hello,

J'essaye de lancer une requête SQL depuis Excel via une macro dans SQL SERVER 2017, et rappatrier le résultat de la requête dans Excel.

Mais j'ai une erreur 3709 ...

Pouvez-vous m'aider svp ? Je suis sur office 365 + SQL SERVER 2017 (Ref ACTIVE X DATA OBJECT 6.1 cochée)

Erreur sur cette Ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 rs.Open SQLStr, Cn, adOpenStatic
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
Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    Server_Name = "MON_SERVEUR" ' Enter your server name here
    Database_Name = "ANA" ' Enter your database name here
    User_ID = "TOTO" ' enter your user ID here
    Password = "TITI" ' Enter your password here
 
    SQLStr = "SELECT * FROM MATABLE" ' Enter your SQL here
 
    Set Cn = New ADODB.Connection
    Cn.connectionstring = "Provider=SQLNCLI11;Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"
 
    rs.Open SQLStr, Cn, adOpenStatic
     ' Dump to spreadsheet
    With Worksheets("Feuil2").Range("a1:z5000") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset rs
    End With
     '            Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
Merci par avance.

R@g