Appeler/lancer un script vbs dans un autre vbsRésolu

Question

Bonjour, 
Voila mon probleme: je suis debutant en vbs, et on m'a demandé d'écrire un script qui doit lui-même exécuter un autre script vbs.

J'ai trouvé sur internet une solution pour lancer un executable

' *********************************************
Option Explicit

Sub Main()
  Dim WshShell, oExec
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.Exec("chemin\fichier.exe")
End Sub

Main
' *********************************************

Je l'ai adapté pour lancer n'importe quel fichier reconnu par double clic par l'explorer (un txt dans cet exemple)
' *********************************************
Option Explicit

Sub Main()
  Dim WshShell, oExec
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.Exec("explorer fichier.txt")
End Sub

Main
' *********************************************

Mon problème: cette dernière solution marche aussi si le fichier est un script vbs, MAIS, windows demande à chaque fois si je suis sur que je veux ouvrir le fihier, puis si je veux l'exécuter ou bien le sauver... Il me faut d'urgence une solution sans boite de dialogue !!
Si quelqu'un a ca, 1000 merci(s)

CTAC · Answer

Bonjour.

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "lefichier.vbs"
Set WshShell = Nothing

ctac

originalcompo · Answer

Merci beaucoup !



J'ai cherch&#233; une journ&#233;e enti&#232;re sur diff&#233;rents forums sans succ&#232;s,
j'avais vu la commande Run sur msdn, mais comme il y avait &#233;crit "The Run method starts a program running in a new Windows process.", j'ai m&#234;me pas essay&#233; avec de tester la m&#233;thode.



Merci  beaucoup... 

Au passage, est-ce que tu sais o&#249; je dois chercher si je veux trouver
tous les param&#232;tres possibles (ou au moins les principaux) que l'on
peut passer &#224; CreateObject() ? (livre, site internet... ????) 



En tout cas merci encore

oc

anwnn06 · Answer

bonjour à tous, petit problème de vb. dans une macro vba (Solidworks) je voudrais lancer un fichier vbs.
Voilà le bout de prog. écrit

   Dim WshShell
   Set WshShell = CreateObject("WScript.Shell")
   WshShell.Run "C:\Documents and Settings	oto\Bureau\choix rep.vbs"
   Set WshShell = Nothing

mais :   Erreur d'exécution '-2147024894 (80070002)'
            La méthode 'Run' de l'objet 'IWshShell3' a échoué

c'est où que je me plante ?

Pb qui doit surement paraitre désuet pour certains, mais ça fait un moment que je casse les dents dessus!!

merci de vos réponse

letinia3dland · Answer

Cela veut dire que le lien de t'on ordi est faux:
"Dim WshShell 
   Set WshShell = CreateObject("WScript.Shell") 
   WshShell.Run "C:\Documents and Settings	oto\Bureau\choix rep.vbs" 
   Set WshShell = Nothing"


Donc la faute est la  :C:\Documents and Settings	oto\Bureau\choixrep.vbs

                                   /\
                             choixrep est faux comme lien!!!

letinia3dland

Appeler/lancer un script vbs dans un autre vbs

4 réponses

Discussions similaires