Bonjour,

j'ai un problème de performance sur une extraction de données d'une base Oracle vers un classeur Excel. Le problème reside sur le nombre de colonne que contient le résultat de la requete (25 colonnes). ci joint le code qui parcours les enregistrement et qui les inserent dans chaque céllule.


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
27
28
 
'**************** Déclaration base de donnée
Private OraSession As Object
Private OraDatabase As Object
Private theDynaset As Object
... connexion a la base de données ....
'*******
 
If theDynaset.RecordCount > 0 Then
 
    'On se place sur le premier enregistrement
    theDynaset.MoveFirst
    Dim i As Integer
    i = 1
 
    'on boucle pour retourner tous les enregistrements ( à remplacer par EOF car parcours table avec count)
     While Not Me.eof
    'On insère les résultats dans des tableaux excel
        For j = 1 To theDynaset.Fields.Count
        With Worksheets(resultatFeuille)
            .Cells(i + 8, j) = theDynaset.Fields(j - 1).Value
        End With
        Next j
        theDynaset.MoveNext
        i = i + 1
    Wend
 
End If
Si quelqu'un à une idée je suis preneur, merci d'avance de vos réponses