IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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 :

Répondre à une inputbox dans un script vbs


Sujet :

VBScript

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Points : 24
    Points
    24
    Par défaut Répondre à une inputbox dans un script vbs
    Bonjour,
    J'ai un fichier excel contenant une base de donnée et des tcd liés.A son ouverture je demande un nom via une inputbox pour accéder au fichier. Le problème c'est que j'ai également un fichier vbs qui va ouvrir le fichier EXCEL pour actualiser ma base de donnée. Et la je coince, J'aimerais savoir si c'est possible de répondre à cet inputbox par "admin"dans le script vbs. Afin que cette dernière ne pose plus problème

    Cordialement;

  2. #2
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2014
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2014
    Messages : 43
    Points : 24
    Points
    24
    Par défaut
    J'ai trouver une solution alternative désactiver les macros à l'ouverture dans le script vbs
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    objExcel.DisplayAlerts = False
    objExcel.Visible = TRUE
    objExcel.EnableEvents = False  'ici 
    Set objWorkBook = objExcel.Workbooks.Open("\....")
     
     
    On Error Resume Next
    	Call bugs
    objWorkbook.EnableEvents = False 'ici
     
    objWorkbook.RefreshAll
     
    WScript.Sleep 1000
     
    objWorkbook.Save()
     
    WScript.Sleep 1000
     
    objExcel.Quit

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 29/05/2009, 14h20
  2. [FLASH MX2004] Comment mettre une pause dans un script
    Par vbcasimir dans le forum Flash
    Réponses: 3
    Dernier message: 16/02/2006, 09h47
  3. Réponses: 2
    Dernier message: 16/01/2006, 15h07
  4. Changer de base à l'intérieure d une instance dans un script
    Par Labienus dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 02/12/2005, 16h03
  5. Créer une table à partir d'une autre dans un script
    Par Dam)rpgheaven dans le forum PostgreSQL
    Réponses: 1
    Dernier message: 24/06/2005, 10h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo