Discussion :

[patrick.kori]

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

[Invité]

Bonjour

A premiére vu tes données sont d'un bloc, tu as d'autres solutions:

1 - DoCmd.TransfertSpreadSheet
2 - et celle-ci remplace toutes tes lignes par

Code :

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

1
2
 
Excel.ActiveWorkbook.ActiveSheet.Range("A1").CopyFromRecordset requete

Starec

[patrick.kori]

Bonjour,

Alors concernant la commande que tu me propose en 1, je l'ai testée mais apparament vb ne la reconnait pas ? peut etre je me trompe de syntaxe.

Néanmoins tu pensais peut etre a la commande DoCmd.OutputTo acOutputQuery.
Celle ci je l'ai testée et en effet c'est très rapide (ca simule un "exporter vers") mais le problème est qu'on ne peut rien faire ensuite sur le fichier d'excel, pas de traitements, pas d'insertions de feuilles ...

Concernant ta solution numéro 2, je l'ai testée également mais mon fichier ne se remplit avec rien du tout

[Invité]

Re

D'où lance tu ton code d'Access ? ou de Excel ?

Starec

[patrick.kori]

Mon code est lancé depuis un bouton positionné sur un formulaire Access.

J'ajoute que mon code initial fonctionne parfaitement seul les performances sont mauvaises.

[patrick.kori]

Oulah je m'étais trompé dans ta 2eme solution, ca fonctionne A MERVEILLE ! merci infiniment