Problème avec le If Then
polowiper
Messages postés
2
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
bonjour voila mon code en .vbs
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
code = "123-456-789"
InputBox "Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
InputBox "Entrer le code ici 2/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ici le but et d'entrer un code dans une "inputbox" et si le code et bon un fichier en .bat s’exécute je pense que le problème viens de la ligne:
If input=code Then
voici le code d'erreur:
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Script: C:\Desktop\Test.vbs
Ligne: 13
Caract: 1
Erreur: 'End' Attendu
Code: 800A03F6
Source: Erreur de compilation Microsoft
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Merci d'avance
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
code = "123-456-789"
InputBox "Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
InputBox "Entrer le code ici 2/2 essais", "test", "xxx-xxx-xxx"
If input=code Then
Set oWShell = CreateObject("Wscript.Shell")
oWShell.Run """C:\Desktop\fichier.bat""", 0, False
Set oWSHell = Nothing
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ici le but et d'entrer un code dans une "inputbox" et si le code et bon un fichier en .bat s’exécute je pense que le problème viens de la ligne:
If input=code Then
voici le code d'erreur:
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Script: C:\Desktop\Test.vbs
Ligne: 13
Caract: 1
Erreur: 'End' Attendu
Code: 800A03F6
Source: Erreur de compilation Microsoft
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Merci d'avance
3 réponses
-
Bonjour
Vbs ça n’est pas du batch, je vais déplacer ton message dans le bon forum.
En outre, merci de présenter correctement ton code, voir ce petit tuto
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, il faut terminer lesif
par desend if
.
exemple:If inputt = code Then Set oWSHell = CreateObject("Wscript.Shell") oWSHell.Run """C:\Desktop\fichier.bat""", 0, False Set oWSHell = Nothing End If -
merci cependant j'aimerais connaitre la commande pour les inputs car le fichier marche très bien maintenant mais quand j'entre le code il ne se passe rien
voila à quoi ressemble le fichier maintenant:
code = "123-456-789" InputBox "Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx" If input = code Then Set oWShell = CreateObject("Wscript.Shell") oWShell.Run """C:\Desktop\fichier.bat""", 0, False Set oWSHell = Nothing End if InputBox "Entrer le code ici 2/2 essais", "test", "xxx-xxx-xxx" If input = code Then Set oWShell = CreateObject("Wscript.Shell") oWShell.Run """C:\Desktop\fichier.bat""", 0, False Set oWSHell = Nothing End if<code basic>
</code>
