Discussion :

[soscitoyen]

Bonjour,

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

Code :

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

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 :

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

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 :

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

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

etc...

Code :

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

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 :

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

   Dim MyRange() As Variant

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

Code :

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

1
2
3
        MyRange = rsUserFacture.GetRows
        NbrCol = UBound(MyRange, 1)
        NbrRow = UBound(MyRange, 2)

Quand je fais :

Code :

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

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 :

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

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 ?

[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

[soscitoyen]

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

[Thumb down]

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

Code :

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

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

[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.

[soscitoyen]

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

Code :

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

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