Problème avec le If Then

Fermé

polowiper Messages postés 2 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 29 janvier 2020 - Modifié le 29 janv. 2020 à 11:58
yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 - 29 janv. 2020 à 16:51

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

A voir également:

Problème avec le If Then
The realtek network controller was not found. if deep sleep mode is enabled please plug the cable ✓ - Forum Pilotes (drivers)
Please remove the installation medium then press enter - Forum Ubuntu
If not exist batch ✓ - Forum Autoit / batch
Connexion messenger if - Guide
Invalid system disk replace the disk and then press any key - Forum Windows

3 réponses

Réponse 1 / 3

Whismeril Messages postés 19044 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 19 mai 2024 912
29 janv. 2020 à 13:14

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

Réponse 2 / 3

yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 468
29 janv. 2020 à 15:12

bonjour, il faut terminer les

if

par des

end if

.
exemple:

If inputt = code Then
    Set oWSHell = CreateObject("Wscript.Shell")
    oWSHell.Run """C:\Desktop\fichier.bat""", 0, False
    Set oWSHell = Nothing
End If

Réponse 3 / 3

polowiper Messages postés 2 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 29 janvier 2020
Modifié le 29 janv. 2020 à 16:08

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>

yg_be Messages postés 22793 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mai 2024 1 468
29 janv. 2020 à 16:51

c'est normal, puisque tu ne fais rien avec la réponse de inputbox.
sans doute:

input =  InputBox ("Entrer le code ici 1/2 essais", "test", "xxx-xxx-xxx")

Discussions similaires

Fonction if exist et else

Poste JVC,message "Miswiring chk wiring"

A quoi sert la sortie IF OUT démodulateur?

Test IF a plusieurs condition en PHP

If not Then vba

Discussions similaires

Newsletters