Performance de mon code VB
Bonjour,
Je réalise via un code VB le remplissage d'un fichier excel depuis une table Access
Ma table n'est pas tres lourde (seulement 400 tuples) et pourtant le fichier met près de 10 min à charger ! Et la requête ne pose aucun soucis, elle s'execute en à peu pres 0.15 sec ce qui ma foi est négligeable ...
Bref je ne comprend pas pourquoi VB met autant de temps a faire cette petite itération, si quelqu'un pouvait m'aider :)
Le seul point qui peut causer probleme, je récupere un à un 40 champs de ma requete.
Mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim requete As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set requete = db.OpenRecordset("SELECT * FROM bidule)
i = 1
While Not RequeteAudit.EOF
Excel.ActiveWorkbook.ActiveSheet.Range("A" & i).Value = requete("champ1")
Excel.ActiveWorkbook.ActiveSheet.Range("B" & i).Value = requete("champ2")
Excel.ActiveWorkbook.ActiveSheet.Range("C" & i).Value = requete("champ3")
[.....]
Excel.ActiveWorkbook.ActiveSheet.Range("AL" & i).Value = requete("champ40")
RequeteAudit.MoveNext
i = i + 1
Wend |
