Discussion :

[mellamotuyo]

Bonjour a tous,
je fait une rapide présentation de moi et de mon problème :
je suis nouveau sur ce forum, j'adore bidouiller des petits trucs sur mon PC (je suis pas un crack ).
J'ai donc commencer a écrire des tout petits script en "VisualBasic" sur mon PC, voilà le début du problème.
Je suppose que vous allez trouvez sa simple, et je l'espère, m'aiderez a me spécialisé dans ce domaine.

Je voulais créer un script qui me permettait de lancer différents programmes en fonction des noms que j'entrai dans l' "inputBox" (je sais pas si c'est le bon nom). Mon script marche nickel pour le premier liens, mais pour le 2ème, une erreur apparait : Ligne : 8
Caract. : 26
Erreur : Le fichier spécifier est introuvable
Code : 80070002
Source : (null)
Je suis pourtant sur d'avoir le bon chemin ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
nom=inputBox("Tapez le code","Lancher")
If nom="Toto1"  Then 
                         set variable=CreateObject("WScript.Shell")
                         variable.Run("D:\Documents\Toto1.exe")
                    Else
              	            If nom="Toto2"  Then 
                         set variable=CreateObject("WScript.Shell")
                         variable.Run("D:\Documents\Toto2.exe")
                    Else
              	         Msgbox "Commande non reconnue"
                End If
                             If nom="Toto3"  Then 
                         set variable=CreateObject("WScript.Shell")
                         variable.Run("D:\Documents\Toto3.exe")
                    Else
              	         Msgbox "Commande non reconnue"
                End If
 
              End If

Voili-voilou Merci de votre aide.

[ProgElecT]

Bienvenue sur DVP
Il existe une FAQ VBScript sur DVP

Voici 3 codes différants pour un même fonctionnement.
Avec des IFs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
nom=inputBox("Tapez le code","Lancher")
If nom="Toto1"  Then
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto1.exe")
  Msgbox "lancement de Toto1"
  elseIf nom="Toto2"  Then
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto2.exe")
  Msgbox "lancement de Toto2"
  elseif nom="Toto3"  Then
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto3.exe")
  Msgbox "lancement de Toto3"
  else
  Msgbox "Commande non reconnue"
end if

Avec des Select Case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
nom=inputBox("Tapez le code","Lancher")
select case nom
  case "Toto1"
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto1.exe")
  Msgbox "lancement de Toto1"
  case "Toto2"
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto2.exe")
  Msgbox "lancement de Toto2"
  case "Toto3"
  'set variable=CreateObject("WScript.Shell")
  'variable.Run("D:\Documents\Toto3.exe")
  Msgbox "lancement de Toto3"
  case else
  Msgbox "Commande non reconnue"
end select

Avec des Select Case, un peu mieux construit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
nom=inputBox("Tapez le code","Lancher")
select case nom
  case "Toto1", "Toto2", "Toto3"
   'set variable=CreateObject("WScript.Shell")
   'variable.Run("D:\Documents\" & nom & ".exe")
    nom = "lancement de " & nom  & " réussi"
  case else
    nom = "Commande non reconnue"
end select
  Msgbox nom

J'ai remé,
'set variable=CreateObject("WScript.Shell")
'variable.Run("D:\Documents\Toto1.exe")
pour confirmer MES essais, n'oublis pas de supprimer ces ' pour TES essais.

[mellamotuyo]

Merci pour ta réponse, malheureusement, sa m'affiche toujours la même erreur ... Je suis pourtant sur que c'est le bon chemin ... cela pourait-il venir de mes fichiers ?

PS : J'ai chercher dans le FAQ mais impossible de trouver une quelconque réponse.

[spantemonium]

heu si j'ai bien lu, le problème identifié par ProgElecT est lié à la syntaxe que tu utilises, pas au chemin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Else If

=> pas bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ElseIf

=> bien (ou select case qui est qd même mieux pour ton exemple)

Est ce que tu peux reposter ton code ?

[mellamotuyo]

je ne comprend pas ce que tu veus que je fasse ... Mon code est déjà poser plus haut, par contre si tu veut le code d'erreur, je le fait completement :

Windows Script Host
Script : 'l'arboresence de mon script'
Ligne : 12
Caract. :4
Erreur : Le fichier spécifier est introuvable.
Code : 80070002
Source : (null)

Voici le rapport d'erreu quand j'ai le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
nom=inputBox("Tapez le code","Lancher")
If nom="Toto1"  Then
   set variable=CreateObject("WScript.Shell")
   variable.Run("D:\Documents\Toto1.exe")
  Msgbox "lancement de Toto1"
  elseIf nom="Toto2"  Then
   set variable=CreateObject("WScript.Shell")
   variable.Run("D:\Documents\Toto2.exe")
  Msgbox "lancement de Toto2"
  elseif nom="Toto3"  Then
   set variable=CreateObject("WScript.Shell")
   variable.Run("D:\Documents\Toto3.exe")
  Msgbox "lancement de Toto3"
  else
  Msgbox "Commande non reconnue"
end if

Et sa m'affiche se rapport tout le temps (avec des lignes et Caract. différents)

[ProgElecT]

Mon script marche nickel pour le premier liens, mais pour le 2ème, une erreur apparait])

Voici le rapport d'erreu quand j'ai le code :
..........
Et sa m'affiche se rapport tout le temps (avec des lignes et Caract. différents)

Fais un essais avec ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
nom=inputBox("Tapez le code","Lancher")
ouvrir
 
sub ouvrir()
 
select case nom
  case "fin"
   exit sub
  case "Toto1", "Toto2", "Toto3"
   set variable=CreateObject("WScript.Shell")
   'variable.Run("D:\Documents\" & nom & ".exe")
   variable.Run("notepad.exe")
    nom = "lancement de " & nom  & " réussi"
  case else
    nom = "Commande non reconnue"
end select
  Msgbox nom
nom=inputBox("Tapez le code","Lancher")
ouvrir
end sub

Avec ce code, reponds au moins 2 à 3 fois Toto1, Toto2 ... avant de repondre fin pour pouvoir terminer le script.
Essais aussi de lancer la ligne de commande avec Démarer ==> Executer en y mettant exactement le chemin et le nom de l'exe que tu veux lancer avec ton script.
De toutes façons, le message d'erreur est explicite, la seule chose qui peut contrarier et eventuellement declancher ce message d'erreur, serait peut être que le dossier et/ou le .exe necessite une session administrateur, sous quel OS es tu ?
Sous VISTA il devient compliqué de lancer des programmes, qui ne posait pas de problèmes sous XP, 2000 ....
Pour autant, je ne suis pas specialiste de VBScript, mon domaine étant plutôt VB6 et maintenant un peu de VB2008 Express(en cour d'apprentissage, dur dur )

[mellamotuyo]

Je suis sous Windows XP, j'ai essayer avec "Executer" et sa marche mais pour ce :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set variable=CreateObject("WScript.Shell")
   variable.Run("D:\Documents\Toto3.exe")

Sa ne marche pas ...

PS : quel logiciel faut-il utiliser pour avoir ce type d'interface :

[ProgElecT]

VB6.
Le code que tu nous signales, tu utilises quel editeur, par exemple moi j'utilise vbs Factory.

[mellamotuyo]

Je n'utilise que le bloc-note ....

[SfJ5Rpw8]

Je n'utilise que le bloc-note ....

Un peu de "HTA" :

http://bbil.developpez.com/tutoriel/vbs/interface-hta/

[mellamotuyo]

Merci pour ce lien ... je sens que je vais avoir pas mal de boulot pour apprendre tout sa ....
Merci a vous pour vos réponse mais je pense que le problème viens de mes dossiers ... je vais donc abandonner ce projet (ou essayer de trouver une solution pour contourner ce "petit problème).
Merci encore !