Probléme d'éxécution d'une application
Bonjour, j'ai un script vbs, c'est un menu de choix, par exemple le choix 1 lance l'appliaction 1, mais une erreur m'est renvoyer, voyer vous l'erreur ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| Function AskQuestion () ' Pose la question et renvoi la reponse:
AskQuestion = InputBox("1 = Lancer Thunderbird" & vbCrLf _
& "2 = Action 2" & vbCrLf _
& "-----" & vbCrLf _
& "Que faire ?", "Ici le titre")
End Function
''''''''''''''''''''
Dim szRet ' Contient la reponse lors de l'appel de la fonction
' Do = debut de la boucle
' Loop = fin de la boucle
' Il n'y a pas de condition de sorti donc la boucle s'executera toujours
Do
szRet = AskQuestion ' contient la reponse
Select Case szRet
Case vbNullString 'Cette etiquette se déclanche si on clique sur annuler ou quiter.
WScript.Quit
Case "1"
Etiquette1
Case "2"
Etiquette2
Case "3"
Etiquette3
Case "4"
Etiquette4
Case Else 'Cette etiquette se déclanche si la saisie est mauvaise.
SaisiNul
End Select
Loop
Sub Etiquette1
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "E:\Mes logiciels\Thunderbird\ThunderbirdPortable.exe"
End Sub
Sub Etiquette2
MsgBox "2"
End sub
Sub Etiquette3
MsgBox "3"
End Sub
Sub Etiquette4
MsgBox "4"
End sub
Sub SaisiNul
MsgBox "Vous avez entrer une mauvaise saisie." |
