Discussion :

[Nono Sto]

Chéres amies, chers amis

J'utilise ADO, et une requête SQL pour récupérer des données dans un classeur fermé.

Pour l'instant la requete s'affiche sur une feuille de calcul:

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
Dim Source_1 As ADODB.Connection
    Dim Requete As ADODB.Recordset
    Dim Fichier_1, xSQL As String
    Dim i As Long
    xSQL = "requete ..."
 
    Set Source_1 = New ADODB.Connection
    Source_1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier_1 & ";Extended Properties=""Excel 12.0;" & "HDR=YES;IMEX=1;"""
 
    Set Requete = New ADODB.Recordset
    Set Requete = Source_1.Execute(xSQL)
 
    For i = 0 To Requete.Fields.Count - 1
        Cells(1, i + 1) = Requete.Fields(i).Name
    Next
 
    Feuil3.Range("A2").CopyFromRecordset Requete
 
    Source_1.Close
 
    Set Source_1 = Nothing
    Set Requete = Nothing

Cependant, j'aurais besoin de plutot remplir un tableau dont la taille s'ajusterait automatiquement.

Auriez vous une idée SVP?

Merci

[Invité]

Bonjour

Regarde du coté de GetRows.

Philippe

[parmi]

Si je comprends bien et que tu as au moins une version 2007 et plus, regarde du côté des Données Externes, onglet Données. Tu pourras lier tes données à ce tableau et faire un RefreshAll pour le mettre à jour quand nécessaire.

Il te faudra créer une connexion selon le besoin.

[Nono Sto]

Je ne comprend pas bien cette solution, c'est en VBA?

J'ai utilisé getrows ainsi:

Code :

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

1
2
3
4
5
Dim Requete As ADODB.Recordset
...
Dim Tab_Query() As Variant
...
Tab_Query = Requete.GetRows(-1)

j'ai la première colonne qui est est bien dans le tableau puis toutes autres valeurs sont NULL.

De plus, la premières ligne avec le nom des colonnes sont manquantes.
Alors lorsque je fais apparaître directement sur une feuilles le résultat avec:

Code :

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

Feuil3.Range("A2").CopyFromRecordset Requete

toutes les valeurs sont affiché.
Auriez vous une idée SVP?

Merci
NB: pour afficher les nom des colonnes sur la feuille j'utilise ceci:

Code :

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

1
2
3
For i = 0 To Requete.Fields.Count - 1
        Cells(1, i + 1) = Requete.Fields(i).Name
    Next