VBA Excel - Openrecordset extrêmement lent
Bonjour à tous,
Je viens à vous car je rencontre un problème vraiment étrange que je n'arrive pas à comprendre malgré tous mes essais.
J'utilise depuis très longtemps du code vba pour accéder à mes bases de données depuis excel comme ceci :
Code:
1
2
3
4
5
6
7
8
9
|
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase("C:\Users\contact\Documents\database.mdb")
Set rs = db.OpenRecordset("SELECT * FROM MaTable")
rs.Close
db.Close |
Rien d'exceptionnel donc.
Cependant, en testant ce code sur un nouvel ordinateur, la commande openrecordset met 10 secondes à s'exécuter.
Je tiens à préciser que database.mdb pèse 644kb et que la table MaTable comporte seulement 10 enregistrements.
J'ai testé en créant un fichier excel vierge et en n'y mettant que le bout de code ci-dessus sans succès.
En enlevant le "DAO." non plus.
J'ai également essayé de changer les références du projet en testant "Microsoft DAO 3.6" et "Microsoft Office 14.0 Access Database Engine" mais rien n'y fait.
Je ne vois plus quoi tester ni comment.
Quelqu'un aurait une idée ?
Merci
