Appeler/lancer un script vbs dans un autre vbs [Résolu]
originalcompo65
Messages postés dimanche 3 avril 2005Date d'inscription
9 octobre 2007
Dernière intervention
-
9 sept. 2005 à 16:37 - Dernière réponse : ucfoutu18039
Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut
11 avril 2018
Dernière intervention
- 1 janv. 2014 à 18:56
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)
J'ai cherché une journée entière sur différents forums sans succès,
j'avais vu la commande Run sur msdn, mais comme il y avait écrit "The Run method starts a program running in a new Windows process.", j'ai même pas essayé avec de tester la méthode.
Merci beaucoup...
Au passage, est-ce que tu sais où je dois chercher si je veux trouver
tous les paramètres possibles (ou au moins les principaux) que l'on
peut passer à CreateObject() ? (livre, site internet... ????)
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\toto\Bureau\choix rep.vbs"
Set WshShell = Nothing"
Donc la faute est la :C:\Documents and Settings\toto\Bureau\choixrep.vbs
