Discussion :

[lulu3111]

Bonjour,

Je travailles sous Excel 2003 et je voudrais importer des données SQL à partir d une base de données sous SQL Server Express 2008.
Je voudrais faire cela en utilisant une macro et utiliser une procédure stockée dans ma base pour importer les données.

Voila si vous avez besoin de plus d'info n'hésitez pas .

A bientôt !

[AnneCa]

Bonjour, moi j'utiliserai un lien ODBC pour faire la connection, puis un recordset pour lire la DB. Voici les étapes à suivre:

1)Crée un lien ODBC vers ta DB (via control panel>DataSources) que tu nommes par exemple DB_Test
2) Ajoute les 2 references dans le projet (Outils>References)
- Microsoft ActiveX Data objects 2.x library
- Microsoft ActiveX Data objects 2.x Recordset library
3)Crée un module comme celui ci-dessous. La macro à exécuter est importVersXL

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
Option Explicit
Private cnn As New ADODB.Connection
 
Private Sub DBConnect()
    cnn.Open "DB_Test"
End Sub
 
Private Sub DBDisConnect()
    cnn.Close
    set cnn = Nothing
End Sub
 
Sub importVersXL()
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim i As Long
 
DBConnect
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = tarequete ' du genre SELECT * FROM TABLE1 ORDER BY VAR 1"
 
Set rs = cmd.Execute
i = 0
Do While Not rs.EOF
    Range("A" & i).Value = rs("VAR1") & ""
    i = i + 1
    rs.MoveNext
Loop
Set rs = Nothing
Set cmd = Nothing
DBDisConnect
End Sub

Bonne chance

[lulu3111]

Alors je reviens pour vous montrez comment j'ai procédé.

J'ai créé un connectString :

Code :

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

connstring = "ODBC;DRIVER=SQL Server;SERVER=XXX;UID=XXX;PWD=XXX;APP=Microsoft Open DatabaseConnectivity;WSID=station08;DATABASE=XXX;Regional=Yes"

J'ai créé une procedure stockée dans base de donnée. Pour l'utiliser je fais une requete SQL avec une concaténation pour le paramètre :

Code :

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

reqString = "EXEC MA_PROC_STOCKE " + @param

Et pour remplir mes cellules :

Code :

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

1
2
3
4
5
6
7
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A6"))
    .CommandText = Array(reqString)
    .RefreshStyle = xlOverwriteCells
    .PreserveFormatting = True
    .AdjustColumnWidth = False
        .Refresh
End With

Voilà, après est ce que c'est la meilleure solution je sais pas, mais cela fonctionne.

Merci de dire si c'est pas très bon.

[AnneCa]

Ca me semble bien aussi. En plus, ça fonctionne.
Merci de "tagger" ta question comme "résolu"...