Copie données issues de ADOdb et SQL dans feuille Excel. Double boucle trop longue

Version imprimable

Bonjour,

Nous utilisons SAP B1 HANA.
Après avoir défini une connexion ADODB avec Recordset
Code:

1 2 3 Dim cNBusinessPartner As ADODB.Connection Dim rsUserFacture As ADODB.Recordset Dim rsBusinessParner As Recordset
j'établis la connexion (les XXX sont remplacés par mes valeurs)
Code:

1 2 3 4 cNBusinessPartner.ConnectionString = "Driver={HDBODBC};ServerNode=XXX:XXX;Database=" & MyBaseSap & "; Uid=XXX;Password=XXX;" cNBusinessPartner.Open Set rsUserFacture = New ADODB.Recordset
je créé une requête SQL qui va me chercher les données :
Code:

1 2 3 requete = "SELECT * FROM " & vbNewLine requete = requete & " ( " & vbNewLine requete = requete & " SELECT T0.""DocNum"" AS ""DocNum"" " & vbNewLine
etc...
Code:

1 2 3 4 5 With rsUserFacture .CursorLocation = adUseClient .ActiveConnection = cNBusinessPartner .Open requete, cNBusinessPartner End With
Par ailleurs, j'ai défini un tableau :

Code:

Dim MyRange() As Variant

dans lequel je verse les données reçues :
Code:

1 2 3 MyRange = rsUserFacture.GetRows NbrCol = UBound(MyRange, 1) NbrRow = UBound(MyRange, 2)
Quand je fais :

Code:

Worksheets("Activité").Range(Cells(4, 4), Cells(NbrRow, NbrCol)) = MyRange

C'est la cata, le positionnement des cellules n'est pas respecté.

Quand je fais :
Code:

1 2 3 4 5 6 For i = 0 To (NbrRow - 1) ' For i = 0 To 100 For j = 0 To NbrCol Worksheets("Facture").Cells(MyDebRowFactureData + i, MyDebColumnFacture + j).Value = MyRange(j, i) Next j Next i
Nickel, cela fonctionne parfaitement ... avec quelques lignes (exemple ici 100 lignes pour le 1ier For mis en commentaire) !

Sauf que j'ai 22 colonnes et environ plus de 10 000 lignes.

L'utilisation de la double boucle pour remplir le tableau est beaucoup, beaucoup trop longue.

Comment faire, quelle méthode utiliser pour être plus performant ?

22/09/2022, 17h22
Raccourcix

Bonjour
Vous demandez quelle méthode sera plus performante, je pense que Power Query sera plus approprié pour récupérer vos données que VBA.

Menu Données/Obtenir des données/A partir d'une base de données/ A partir d'une base de données SAP HANA

Stéphane

Bonjour,
Il existe la fonction Excel CopyFromRecordSet
Worksheets("Activité").Range("D4").CopyFromRecordSet cNBusinessPartner.execute(requete)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim requete As String
requete = "SELECT * FROM " & vbNewLine 'je créé une requête SQL qui va me chercher les données :
requete = requete & " ( " & vbNewLine
requete = requete & " SELECT T0.""DocNum"" AS ""DocNum"" " & vbNewLine
'etc...
With CreateObject("ADODB.Connection")
    .Open "Driver={HDBODBC};ServerNode=XXX:XXX;Database=" & MyBaseSap & "; Uid=XXX;Password=XXX;" 'j 'établis la connexion (les XXX sont remplacés par mes valeurs)
    Worksheets("Activité").Range("D4").CopyFromRecordset .Execute(requete)
    .Close
End With
End Sub

22/09/2022, 17h58
Alex020181

Bonjour,

Autre chose aussi. Quand on insère des données dans des cellules il faut d'abord désactiver les filtres éventuels sur la zone de destination sinon les données s'insère n'importe comment.
23/09/2022, 10h08
soscitoyen

Citation:

Envoyé par Raccourcix

Bonjour
Vous demandez quelle méthode sera plus performante, je pense que Power Query sera plus approprié pour récupérer vos données que VBA.

Menu Données/Obtenir des données/A partir d'une base de données/ A partir d'une base de données SAP HANA

Stéphane

Merci pour votre réponse.
Je n'ai copié qu'une partie du code qui fait bien d'autres choses.
Mon but est que l'utilisateur ait simplement à appuyer sur un bouton.
La solution PowerQuery que j'utilise personnellement par ailleurs n'entre pas dans ce contexte

Citation:
Envoyé par Thumb down
Bonjour,
Il existe la fonction Excel CopyFromRecordSet
Worksheets("Activité").Range("D4").CopyFromRecordSet cNBusinessPartner.execute(requete)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub test() Dim requete As String requete = "SELECT * FROM " & vbNewLine 'je créé une requête SQL qui va me chercher les données : requete = requete & " ( " & vbNewLine requete = requete & " SELECT T0.""DocNum"" AS ""DocNum"" " & vbNewLine 'etc... With CreateObject("ADODB.Connection") .Open "Driver={HDBODBC};ServerNode=XXX:XXX;Database=" & MyBaseSap & "; Uid=XXX;Password=XXX;" 'j 'établis la connexion (les XXX sont remplacés par mes valeurs) Worksheets("Activité").Range("D4").CopyFromRecordset .Execute(requete) .Close End With End Sub
J'ai essayé la solution de Thumb down basée sur .CopyFromRecordset .Execute(requete)
C'est exactement ce que je recherchais , la copie est instantanée.
Un grand merci.
J'indique que le post a été résolu