Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

fenêtre Access visible


Sujet :

VBScript

  1. #1
    Membre actif
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    appaccess.visible=false
    appaccess.quit

    avant d'afficher certaines valeurs.
    Windows 8.1
    Firefox Quantum 58.0.1 (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  2. #2
    Modérateur

    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 ?
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Modérateur

    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
    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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  4. #4
    Membre actif
    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.
    Windows 8.1
    Firefox Quantum 58.0.1 (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

###raw>template_hook.ano_emploi###