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 : 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
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