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.