[HTA] Fenêtre Access visible

Bonjour

dans un HTA, la fenêtre se ferme seulement quand je sors du programme.
Alors que j'ai mis ces commandes pour fermer Access:

Code:

---

1 2	appaccess.visible=false appaccess.quit

---

avant d'afficher certaines valeurs.:(

La 1ère ligne du code fait disparaître Access de la vue(reste en mémoire mais invisible); la seconde ligne la ferme.

Quelle est au fait la question à laquelle on devrait répondre ?

Après test, et si j'ai bien compris le problème, l'application Access s'ouvre puis se ferme sans laisser le temps de voir le fichier à ouvrir.
En fait, c'est un peu bizarre !!

Pour palier à cela, on opère autrement :

Code:

---

1 2 3 4 5 6 7 8

Set WS = CreateObject("Wscript.Shell") WS.Run "MSAccess.exe", 1 Wscript.Sleep 2000 ' attente du chargement d'Access Set Acc = GetObject(,"Access.Application") Wscript.Sleep 2000 ' attente pour rechercher Access Acc.OpenCurrentDatabase "C:\MonFichier.mdb" ' mdb ou accdb selon le cas Wscript.Sleep 2000 ' Vue de l'application pour 2 secondes puis fermeture Acc.Quit ' On ferme l'application

---

c'est pas tout à fait ça;
le prog. se passe bien, mais la fenêtre Access apparait devant la mienne.
Alors qu'elle devrait être fermée.
Par contre lorsque je sors du prog., toutes les 2 se ferment.

Bonjour
A ce jour , je n'ai toujours pas eu de réponse.:roll:

voici mon programme :
https://www.cjoint.com/c/KIcgDsxSGhY


PS. je sous Office 2007