Discussion :

[i0raek]

Bonjour à tous,

je souhaiterai utiliser sur excel le résultat d'une procédure stockée sur sql server. Cette procédure compile le résultat de 3 procédures renvoyant chacune un select.

Ma question est la suivante : Est-il possible de coller chaque select sur une feuille excel différente ?

A l'heure actuelle, je n'obtiens que les données du premier select...
Voici le code que j'utilise :

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
 
Dim Cnn1 As ADODB.Connection
Dim Cmd1 As ADODB.Command
Dim MonRs As ADODB.Recordset
 
Set Cnn1 = New ADODB.Connection
With Cnn1
    .ConnectionString = "UID=" & "Test" & ";PWD=" & "" & ";" & _
        "DRIVER={SQL Server};Server=" & "Test" & ";Database=" & "Test" & ";"
    .Open
End With
 
Set Cmd1 = New ADODB.Command
With Cmd1
    .ActiveConnection = Cnn1
    .CommandType = adCmdStoredProc
    .CommandText = "ps_Test"
    .Parameters("@param1").Value = "1"
    .Parameters("@param2").Value = "01/10/2013"
End With
Set MonRs = Cmd1.Execute
Feuil1.Range("A1").CopyFromRecordset MonRs
MonRs.Close

Merci d'avance pour votre aide !

[i0raek]

En continuant de chercher, j'ai trouvé la solution si ca peut aider quelqu'un :

Code :

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

Set MonRs = MonRs.NextRecordset

Bonne journée à tous.