Bonjour,

je cherche à créer une fenêtre vbs qui me demande d'entrer une valeur et une fois la valeur entré me redirige vers une cmd où la variable sera utilisé :

Pour commencer j'ai créé un fichier que j'ouvre avec Notepad ++ : fichier.vbs           -          (Déjà je sais pas si j'ai tout bon là...)

Ensuite je déclare ma variable : Dim vars As Integer           -          (Là j'ai une erreur "Fin d'instruction attendue")

Après je créé mon inputbox : vars = InputBox ("Entrez une valeur","Test")

Dans cette dernière étape j'aimerais faire en sorte que seul un bouton OK apparaisse et pas Ok ou Annuler et mes test m'ont mené à ça : vars = InputBox ("Entrez une valeur","Test",,,,1)           -          (Nouvelle erreur "Argument ou appel de procédure incorrect: 'InputBox'

Un peu d'aide svp

Merci par avance

Bonjour,

Voici un exemple pour avancer dans ton projet :

Dim vars
vars = 0
vars = CInt(vars)

vars = InputBox("Entrez une valeur", "Test")

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /K echo. &echo " &vars, 1, False

Les trois premières lignes : Déclare la variable ; Lui attribue la valeur 0 ; Renvoie la valeur Integer d'elle même (donc la variable est convertis en Integer).

La ligne suivante concerne la inputbox (impossible de modifier les boutons avec cette commande), et la saisie accepte tout types de caractères (ce qui peut enlever le type Integer à la variable vars). Concernant les boutons --> https://stackoverflow.com/questions/21692809/vbs-how-to-make-a-custom-option-button

Les deux dernières lignes permettent de lancer l'invite de commande (cmd.exe) avec l'option /K (Exécute la commande donnée par la chaîne de caractères et reste actif.), de faire un saut de ligne et d'afficher la valeur de la variable vars.

Concernant 1 et False --> https://vb.developpez.com/faq/vbs?page=Shell-wshShell

Merci j'ai trouvé, voici ma dernière ligne de code :

WshShell.Run "cmd.exe /k" &vars, 1, true

Merci de ton aide

-
Edité par Damistine 18 juillet 2019 à 15:12:25