Discussion :

[kevpagnat]

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 :

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

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

[arosec]

Bonjour,

Si c'est en lecture seule, il faut ajouter "ReadOnly:=True".

Code :

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

Set db = OpenDatabase("C:\Users\contact\Documents\database.mdb", ReadOnly:=True)

Attention au "select *" s'il y a bcp de colonnes.

La référence "Microsoft DAO 3.6" est OK.

Je ne vois vraiment rien de particulier

Cdlt

[Daniel.C]

Bonjour,

Compacte la base si tu ne l'as pas fait.