Bonjour à tous,

Je souhaiterais rentrer le résultat d'une requête SQL dans un variant VBA.
Je sais copier le résultat directement dans une feuille excel en indiquant la cellule de base (celle qui sera en haut à gauche) via cells.copyfromrecordset.
mais aucune idée pour le mettre directement dans un variant vba (sans passer par l'étape feuille excel).

Voici le code, les XXX sont rentrés avec les bons paramètres.
c'est la partie en gras qui ne fonctionne pas, rs n'étant pas un tableau il n'a pas de "taille".
Ce que je voudrais c'est rentrer le résultat de la requête dans V. Ensuite je vais faire des calculs et sortir le résultat de ma fonction.

Merci!

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
Function OSSql(a As Variant) As Variant
Dim dbConnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbParameters As String
Dim query As String
Dim v As Variant

dbParameters = "Provider=XXX;Data Source=XXX;" & _
            "Initial Catalog=XXX;" & _
            "Integrated Security=SSPI;"
    
    Set dbConnection = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    dbConnection.Open dbParameters
    
    query = "SELECT XXX FROM XXX"
        
    Set rs = dbConnection.Execute(query)

    Redim(C(ubound(rs))
    
    V.CopyFromRecordset rs
    
    
End Function