Discussion :

[Oliv-]

Bonjour,

J'ai une procédure stockée qui renvoi plusieurs select :

Code :

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

1
2
3
4
5
6
7
CREATE PROCEDURE P_xxx
AS
SELECT * FROM INFORMATION_SCHEMA.TABLES
SELECT * FROM INFORMATION_SCHEMA.COLUMNS
GO
 
EXEC P_xxx

Comment renvoyer en bloc vers Excel le résultat de tous mes Select ?

Avec un recordset je n'ai que le premier ?

Merci d'avance

[sessime]

Salut,
Si tu passais par une fonction qui te retournait une table en utilisation bien sur des unions pour des deux requetes,ce serait plus aisé sans doute de la parcourir et de l'envoyer vers Excel eventuellemnt.
merci et bon dev.

[Oliv-]

Salut,

Le probleme c'est que je n'ai pas du tout le même nombre de colonnes.

Mais j'ai trouvé une solution il faut utiliser NextRecordset :

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
Dim x, numberOfRows
Dim WB As Workbook
Dim WS As Worksheet
Dim Rg As Range
 
Set WB = Workbooks.Add
Set WS = WB.ActiveSheet
Set Rg = WS.Range("a1")
 
i = 1
Do Until rst Is Nothing
    Debug.Print "--- Jeu de résultats N° " & i & " ---"
   Dim vaTmp() As String
 
   ' This section fills in the field names from the Orders table.
   ReDim vaTmp(rst.Fields.Count)
   For x = 0 To rst.Fields.Count - 1
       vaTmp(x) = rst.Fields(x).Name
   Next
   On Error Resume Next
   Rg.Resize(1, rst.Fields.Count) = vaTmp
 
 
   ' Retrieves the data to the sheet.
   numberOfRows = Rg.Offset(1, 0).CopyFromRecordset(rst)
 
    Set rst = rst.NextRecordset
    Set Rg = WS.Range("a65536").End(xlUp).Offset(1, 0)
    i = i + 1
Loop