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:
avant d'afficher certaines valeurs.:(Code:
1
2appaccess.visible=false appaccess.quit
Version imprimable
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:
avant d'afficher certaines valeurs.:(Code:
1
2appaccess.visible=false appaccess.quit
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