Compacter une base de donnée ACCESS

Fermé
willi2712 - Modifié par Whismeril le 23/04/2015 à 18:46
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 24 avril 2015 à 09:52
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.

1 réponse

f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
24 avril 2015 à 09:52
Bonjour,

comment vous vous connectez a cette base ???
0