Je sais que c'est une question récurrente, mais je n'ai pas trouvé mon bonheur dans les réponses existantes...

J'ai tapé ce code pour compacter ma base Access (en ayant au préalable intégré la référence appropriée) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim jro As jro.JetEngine
 
Set jro = New jro.JetEngine
 
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Access Datas\QuickAccess.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Access Datas\QuickAccessCompact.mdb;Jet OLEDB:Engine Type=4"
...et ca devrait marcher.

Le seul problème, c'est que magré le fait que je ferme la connexion avec ma base dans le formulaire précédent, j'obtiens un message d'erreur qui me dit qu'elle est ouverte en mode exclusif par un autre utilisateur ou application.

Comment se débarrasser de la connexion (j'ai déjà ajouté le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set maConnexion=Nothing
et le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
maConnexion.Close
mais ça n'a rien changé...)