Discussion :

[papyxy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
appaccess.visible=false
appaccess.quit

avant d'afficher certaines valeurs.

[l_autodidacte]

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 ?

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[papyxy]

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.

[papyxy]

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

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


PS. je sous Office 2007