Problème avec le WshShell

Résolu
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous, ceci est ma première question qui me donne du tracas depuis une semaine.
J'ai commencé un petit programme, écrit sur Notepad ++, en langage .vbs, qui doit permettre à l'utilisateur de rentrer dans une ligne InputBox ce qu'il veux faire, et le programme lance le logiciel désigné par l'utilisateur. J'ai réussi à faire le programme qui permet de lancer un logiciel, sans artifices, mais là, il me met qu'il manque un WshShell;
Voici le programme:
1: msg=InputBox (msg, "Que veux tu faire?")
2: If msg=ets2 Then WshShell = WScript.CreateObject("WScript.Shell")
3: WshShell.Run """C:\Program Files (x86)\Euro Truck Simulator 2\bin\win_x64\eurotrucks2"""
Voici ce que ça me donne:
http://image.noelshack.com/fichiers/2015/26/1435396921-bug-prog.jpg
Merci d'avance!

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

https://ss64.com/vb/run.html
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

essaie ceci: 

Dim msg
msg=InputBox (msg, "Que veux tu faire?",  "ets2") 
If msg= "ets2" Then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\CCleaner\ccleaner.exe""" 'a adapter le chemin de l'appli
End If
0
gp59 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Oh! Je te remercie! Ca fonctionne enfin!
Ok, je vais devoir m'améliorer en programmation!
0