lancer un . vbs depuis VB

Question

Bonjour 
je cherche une commande permettant de lancer un vsbs depuis un programme VB.
Merci de votre aide

Patrice · Answer

Il te suffit d'utiliser la fonction shell :

dim proghwnd as long
proghwnd=shell("chemin	onfichier.vbs")

c tout !!!
@+

flo · Answer

Merci mais
non justement la simple fonction shell ne marche pas pour une appli .vbs!!!
j'ai trouve une fonction entre temps si ca interesse:
Set wshell = CreateObject("WScript.Shell")
                     somelong = wshell.Run("cscript " + "pgme.vbs", 1, True)

Voila

@+

Patrice · Answer

Ok, merci de l'info, ça peut toujours servir.
@+

PetiteMontrealaise · Answer

Bon, merci d'avoir abordé le sujet, ça faisait un moment que je charchais l'info!! 

A+

PetiteMontrealaise · Answer

Est-ce que vous s'avez s'il y a moyen de désactiver l'affichage de la console..?? Quand je l'ance mon vbs, à partir du click sur le bouton, mon vbs s'exécute bien mais une fenêtre console dos s'ouvre et reste active... Je voudrais la rendre invisible du moins....

Merci à l'avance

lethyb · Answer

Bonjour,

Oui il suffit de changer un tout ptit détail dans le code posté par flo :

Set wshell = CreateObject("WScript.Shell")
somelong = wshell.Run("wscript " + "pgme.vbs", 1, True)

Tu remplace "cscript" par "wscript"

- cscript : affichage en ligne de commande
- wscript : affichage pop-up (msgbox)

Bonne journée & bonne prog ;)

PetiteMontrealaise · Answer

Ah, merci pour la réponse!

   Maintenant je sais comment le faire, mais j'ai déjà tout modifié mon vbs pour qu'il fonctionne directement dans un form...hihi

Merci encore, la prochaine fois je saurai comment faire!

Lancer un . vbs depuis VB

7 réponses

Discussions similaires