Import de données SQL dans excel

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 !

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:

---

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

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

J'ai créé un connectString :

Code:

---

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:

---

reqString = "EXEC MA_PROC_STOCKE " + @param

---

Et pour remplir mes cellules :

Code:

---

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. :)

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