Discussion :

[arcane]

Bonjour,
Je teste une connexion à une base SQL Server 2019 pour inclure une table dans une feuille Excel (en fait, exécuter n'importe quelle requête SQL)
J'ai cette macro :

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
32
33
34
35
Sub MacroArc()
 
    Dim Requete As String, Id As String
 
    Dim qt As QueryTable
    Dim rDest As Range
 
 
Const sConnect = "ODBC;" & "Driver={SQL Server Native Client 11.0};" & "Server=SRV-SQL, 1433;" & "Database=DIST_PARIS;" & "Trusted_Connection=no"
 
    Requete = "SELECT * FROM DIST_PARIS.TOURNEE ;"
    MsgBox Requete
 
Set rDest = Sheets("Feuil1").Range("A1")
rDest.CurrentRegion.Clear
 
Set qt = rDest.Parent.ListObjects.Add(SourceType:=xlSrcQuery, Source:=Array(sConnect), Destination:=rDest).QueryTable
 
With qt.Parameters.Add("ProductID", xlParamTypeVarChar)
    .SetParam xlRange, Sheets("Feuil1").Range("Z1")
    .RefreshOnChange = True
End With
 
With qt
    .CommandText = Requete
    .CommandType = xlCmdSql
    .AdjustColumnWidth = True
    .BackgroundQuery = False
    .Refresh
End With
 
Set qt = Nothing
Set rDest = Nothing
 
End Sub

Cela fait une erreur d'exécution 1004 sur la ligne :

Code :

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

Set qt = rDest.Parent.ListObjects.Add(SourceType:=xlSrcQuery, Source:=Array(sConnect), Destination:=rDest).QueryTable

Puis

[Microsoft][SQL Server Native Client 11.0][SQL Server]Nom d'objet 'DIST_PARIS.TOURNEE' non valide

Au final, j'essaye de faire une macro générique pour effectuer cette connexion.
Un peu d'aide serait bienvenue.
Merci

[78chris]

Bonjour

Pourquoi ne pas utiliser PowerQuery pour cela ?

C'est intégré à ta version Excel et prévu pour

[arcane]

A ma connaissance (limitée il est vrai) dans Power Query tu exécutes une requête fixe.
Mon but est de pouvoir construire la requête SQL.

A moins qu'il y a la possibilité de construire une requête SQL et de la passer en power Query ? Je n'ai pas cherché dans ce sens.
De plus, potentiellement ce n'est pas une seule mais plusieurs requêtes que je voudrais exécuter dans le même Excel.
Merci

[78chris]

Bonjour

On peut mettre la requête en SQL dans PowerQuery : exemple sur Access

Code :

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

=  Odbc.Query("dsn=Societes_Formation", "select * from ca_mensuel where mois ='mars'")