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 : 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
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."