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

[Invité]

Pas sur mais généralement il faut transposer les données issues de la requête:

Code :

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

Tab_Query = Application.WorksheetFunction.Transpose(Requete.GetRows)

[Nono Sto]

Merci

Cela ne fonctionne pas j'ai une erreur d'incompatibilité de type.

[Invité]

Il me semble que le tableau doit être de type 'Variant'.

[boisgontierjacques]

Bonsoir,


Exemple de récupération d'un champ dans un tableau a() avec GetRows

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
 
Sub RecupChampGetRows()
  ' Microsoft ActiveX DataObject doit être coché
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path & "\"
  fichier = "AdoSource.xls"
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & répertoire & fichier ' Fichier .xls
  Set rs = cnn.Execute("[A1:C100]")
  a = rs.GetRows                                     (tableau a(,)
  [A2].Resize(3, UBound(a) + 1) = Application.Transpose(a)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Jacques Boisgontier

[Nono Sto]

Merci

J'ai toujours le problème d'incompatibilité de type

Autant pour moi, j'ai mal regarder mon espion en fait c'est la composition du tableau, il ya beaucoup de case vide, d'ou les valeurs NULL, en fouillant un peu plus loing que le bout de mon nez j'ai pu constater que toutes les valeurs sont retourné sauf les entete de colonne

Code :

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

Tab_Query = Requete.GetRows

Cepandant je ne sais pas comment faire avec les entete car j'ai une erreur lorsque je met HDR=NO

Merci

[Nono Sto]

Il semblerait que le HDR=NO fonctionne sur des requete simple, du genre

Code :

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

SELECT * FROM database

Cependant dès que cela devient complexe, les entete sont utiliser et là on peux plus les faire passer pour des valeurs.

Je passe alors par ce bout code pour ajouter à posteriorie sur la derniere ligne les entete:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Requete = Source_1.Execute(xSQL)
 
    Data_Query_Array = Requete.GetRows
 
    nrow = UBound(Data_Query_Array, 1) - 1
    ncol = UBound(Data_Query_Array, 2) + 1
 
    ReDim Preserve Data_Query_Array(nrow + 1, ncol)
    For i = 0 To nrow
        Data_Query_Array(i, ncol) = Requete.Fields(i).Name
    Next

Dès lors que je souhaite travailler sur un tableau vba, la position de l'entete importe peu, du moment que je sais ou ils sont.

Cependant si vous avez mieux je suis preneurs.

Merci