Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1267 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Msgbox non bloquante

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Msgbox non bloquante

n°1600629
chico008
what the wookie says ?
Posté le 18-08-2007 à 07:32:35  profilanswer
 

Bonjour
 
J'ai realiser un script en VBS pour automatiser la saisie d'une partie d'un fichier excel.
j'ai un message au debut qui previent de fermer le fichier (le script l'ouvre tout seul), et un message a la fin quand tout est terminé.
 
Cependant, vu que certains passage demande des connection ftp et autre, j'aimerais pouvoir afficher un message en haut de l'ecran en grand, sans bouton, indiquant que le script est toujours en train de se derouler. une msgbox, mais qui ne bloque pas le traitement en gros.
 
Comment faire ceci ?
 
Merci.

mood
Publicité
Posté le 18-08-2007 à 07:32:35  profilanswer
 

n°1600743
chico008
what the wookie says ?
Posté le 19-08-2007 à 08:22:04  profilanswer
 

Dites au moin si c'est possible ou pas, car j'ai beau chercher je trouve rien, ou alors c'est des choses qui se rapportent au VBA, mais rien en VBScript.

n°1600771
olivthill
Posté le 19-08-2007 à 13:57:38  profilanswer
 

Les MsgBox sont de type modal, je n'en ai pas trouvé qui fussent de type non-modal.
 
Pour infos, voici les différentes options des MsgBox :

Constante      Valeur Description  
vbOKOnly            0 Affiche uniquement le bouton OK.  
vbOKCancel          1 Affiche les boutons OK et Annuler.  
vbAbortRetryIgnore  2 Affiche les boutons Abandon, Réessayer et Ignorer.  
vbYesNoCancel       3 Affiche les boutons Oui, Non et Annuler.  
vbYesNo             4 Affiche les boutons Oui et Non.  
vbRetryCancel       5 Affiche les boutons Réessayer et Annuler.  
vbCritical         16 Affiche l'icône Message critique.  
vbQuestion         32 Affiche l'icône Demande d'avertissement.  
vbExclamation      48 Affiche l'icône Message d'avertissement.  
vbInformation      64 Affiche l'icône Message d'information.  
vbDefaultButton1    0 Le premier bouton est le bouton par défaut.  
vbDefaultButton2  256 Le deuxième bouton est le bouton par défaut.  
vbDefaultButton3  512 Le troisième bouton est le bouton par défaut.  
vbDefaultButton4  768 Le quatrième bouton est le bouton par défaut.  
vbApplicationModal  0 Boîte modale pour l'application. L'utilisateur doit répondre à la boîte de message avant de poursuivre le travail dans l'application courante.  
vbSystemModal    4096 Boîte modale pour le système. Toutes les applications sont suspendues jusqu'à ce que l'utilisateur réponde à la boîte de message.  
 
Codes de retour :
Constante Valeur Description  
vbOK     1 L'utilisateur a cliqué sur OK.  
vbCancel 2 L'utilisateur a cliqué sur Annuler.  
vbAbort  3 L'utilisateur a cliqué sur Abandon.  
vbRetry  4 L'utilisateur a cliqué sur Réessayer.  
vbIgnore 5 L'utilisateur a cliqué sur Ignorer.  
vbYes    6 L'utilisateur a cliqué sur Oui.  
vbNo     7 L'utilisateur a cliqué sur Non.


EDIT : Avec les mots clés "Progress bar VBS", Google renvoie vers des pages contenant des scripts ayant l'air interessant.


Message édité par olivthill le 19-08-2007 à 14:09:26
n°1600828
fragarch
strop bon, skoi ??
Posté le 19-08-2007 à 18:50:53  profilanswer
 

c'est peut-être bête mais j'ai eu exactement le même "problème"
 
ce que j'ai fait : afficher une petite userform avec une progressbar dessus. Pendant que le code s'exécute, je mets la progressbar et le caption du form à jour. Genre
 
caption = "début du transfert"
code
caption = "transfert en cours"
code
caption = "fin du transfert"
code
 
et puis quand c'est fini, je ferme le form et fais apparaitre la msgbox de fin.
 
peut-être un peu bête mais pour moi ça marche


---------------

n°1600829
chico008
what the wookie says ?
Posté le 19-08-2007 à 18:56:37  profilanswer
 

et comment tu fait pour crée une userform en VBScript ?
en vba tu passe par l'applis et tu fait ton userform en graphique, mais en VBS qui tourne en stand-alone je sais pas comment on fait.

n°1600830
fragarch
strop bon, skoi ??
Posté le 19-08-2007 à 19:00:09  profilanswer
 

ah oui sorry, je suis en vba moi
donc c'était bête ce que j'avais dit
Mea culpa :jap:

n°1600841
chico008
what the wookie says ?
Posté le 19-08-2007 à 20:02:46  profilanswer
 

arf, j'avait une faible lueur d'espoir, tu vient de l'eteindre ...

n°1601146
jpcheck
Pioupiou
Posté le 20-08-2007 à 15:12:57  profilanswer
 

et pkoi ne lances-tu pas ton code avant d'afficher le msgbox ?

n°1601184
chico008
what the wookie says ?
Posté le 20-08-2007 à 15:41:46  profilanswer
 

car le code appel une fenetre ms dos, y passe des commande, edite un fichier excel, donc si je passe ma msgbox a la fin pour dire de pas toucher, c'est un peu inutile.

n°1601335
jpcheck
Pioupiou
Posté le 20-08-2007 à 18:13:12  profilanswer
 

et si tu freezes l'écran le temps de faire ta manip ? :p

mood
Publicité
Posté le 20-08-2007 à 18:13:12  profilanswer
 

n°1601355
c_moa
Posté le 20-08-2007 à 18:51:43  profilanswer
 

Pour afficher un message, une barre de progression ou autre,  pendant l'exécution d'un script,
on peut utiliser une fenêtre internet explorer ( dépouillée des menus par exemple )
 
Un bon exemple dans le Script Center  (technet microsoft)
http://www.microsoft.com/technet/s [...] x?mfr=true
Script Center Home > Script Repository > Scripting Techniques > Progress Bars
Track Script Progress Using Internet Explorer
 
 
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Msgbox non bloquante

 

Sujets relatifs
Connextion à un annuaire LDAP (VBA vers VBS)[VBS] Probleme WMI distant (sur Win32_Product)
[VBS] Script d'ajout d'imprimante réseau.Resolu [VBS] lister les connexions TCP (comme netstat)
msgbox [VBA][VBS] Inserer du texte dans un textarea ?
[VBS] Utiliser une application déjà ouverte[VBS] passer une variable d'un script à un autre
VBS ajouter un élément dans une table MYSQL[VBS] Modifier mot de passe et groupes locaux
Plus de sujets relatifs à : [VBS] Msgbox non bloquante


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR