VBA Excel et Acces - BdD supprimée quand la connection se ferme

Bonjour,

J'accède depuis Excel à une base de données Access.
Pour cela je crée un objection ADODB.connection puis j'ouvre la BDD avec la commande Open:

Code:

---

1 2 3 4 5 6 7

Set vcn = New ADODB.Connection With vcn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = vAccessDDBFile .Open End With

---

Lorsqu'à la fin de mon script j'utilise la commande vcn.close pour clore la connexion, il me 'détruit' la base de données associée, c'est à dire qu'il supprime le fichier base.accdb associé sous Windows. Or, j'ai besoin de fermer la dite connexion afin de pouvoir lancer la commande de compactage de la base.

Sauriez-vous comment fermer la connexion sans 'détruire' la base de données, svp ?

Merci d'avance

Bonjour,
je pensais que le problème venait à la clôture de la connexion et tu nous montre que l'ouverture.

enlève le compactage automatique de ta base et refais un test!

Code:

---

1 2 3 4 5 6 7 8

Set vcn = New ADODB.Connection With vcn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = vAccessDDBFile .Open .Close End With Set vcn = Nothing

---

Bonjour,

Pour la fermeture, j'utilise à la fin du script simple :

Code:

---

1 2 3

vcn.close set vcn = nothing

---

Lorsque ce code est exécuté, mon fichier de base de données est supprimé du répertoire.
Par ailleurs, je n'ai pas encore intégré à mon code le compactage de la base.

Merci,

ça fait vingt ans que je travail journellement avec ado et c'est la première fois que j’entends parlé de ça!

un peu plus de code serait le bien venu!