Compacter une base de donnée ACCESS

Bonjour,

Je veux compacter une base de donnée ACCESS en utilisant le VBA Excel mais j'ai une erreur.

Voici mon code :

sNomBase = BD_COULEUR.Address
sNomBaseTmp = Replace(sNomBase, "Base_COULEUR.smacc", "Base_COULEUR_tmp.smacc")
DBEngine.CompactDatabase sNomBase, sNomBaseTmp         
Kill sNomBase 
Name sNomBaseTmp As sNomBase

Mais j'ai une erreur qui me dit que : Base_COULEUR.smacc est en cours d'utilisation. En effet, le fichier Excel l'utilise en même temps.
Donc je voulais savoir s'il y avait une fonction qui me permettait de couper le lien entre Base_COULEUR.smacc et le excel pour que je puisse le changer.

EDIT: Ajout de la coloration syntaxique.