Vbscript inputbox probleme

Fermé

masterkev - 16 déc. 2008 à 17:19
mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 - 21 déc. 2008 à 02:29

Bonjour,

volia mon probleme jai crée un .vbs qui me fais pamal de commande " cool " et rend tout plus simple et rapide et surtout " spécial " exemple : la inputbox aparais et jentre une commande ( master ouvre mon msn et les autres des page internet ..) MA QUESTION : je veu exemple ecrire dans la box "tigerdirect.ca" et que si rien n'est trouver dans mon script a propo de "tigerdirect.ca" il remplace http://www."tigerdirect.ca"
jaurais exemple un qqch comme sa

if "variable"
http://www." variable"

mais je sais pas comment faire merci de votre aide :D

Set variable=CreateObject("WScript.Shell")
Set WshShell = Nothing

Sub Run(ByVal sFile)
Dim shell

Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub

dim strcorp
strCorp = "RIEN"

strCorp = InputBox("ENTRÉ LA COMMANDE DE VOTRE CHOIX :")

select case strcorp

case "master"
run "msnmsgr.exe"

wscript.sleep 5000
variable.SendKeys ("{backspace}")
wscript.sleep 300
variable.SendKeys ("salut@hotmail.com")
wscript.sleep 300
variable.SendKeys ("{tab}")
wscript.sleep 300
variable.SendKeys ("hahanice")
wscript.sleep 300
variable.SendKeys ("{enter}")

case "google"
run "www.google.ca"
case "youtube"
run "www.youtube.com"
case "metallica"
run "https://www.youtube.com/watch?v=jZ5zXXUJsyc"

A voir également:

Vbscript inputbox probleme
Vba inputbox annuler ✓ - Forum VB / VBA
INPUTBOX ANNULER MSG ERREUR ✓ - Forum VB / VBA
Comment utiliser le bouton annulé d'un Inputbox ✓ - Forum VB / VBA
Vbscript curl ✓ - Forum VB / VBA
Vba inputbox liste déroulante - Forum Word

1 réponse

Réponse 1 / 1

mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 28
21 déc. 2008 à 02:29

Salut
Tu peux tenter un truc du style

[code]

.......
select case strcorp
case "master"
......
case "msn"
......
case else 'cas ou rien ne convenait avant
fichier = "http://www." & strcorp
run fichier

.......

[\code]

A plus.

Discussions similaires

Faire une pause en VBS

Bonjour,
J'aimerais dans un programme un VBS attendre un certains temps pendant lequel le programme n'utilise pas 100% de CPU. En gros je cherche un équivalent de application.ontime en VBA sous Excel mais en VBS.

Merci d'avance

[vba excel] sortir de la fonction inputbox

Bonjour !
j'ai utilisé un inputbox pour demander à l'utilisateur de saisir une valeur numérique. je vérifie bien si c'est une valeur numerique avant d'enregistrer ma valeur. j'aimerais que si l'utilisateur clique sur le bouton annuler qu'il sorte de la fonction inputbox.
voici mon code:
taux = InputBox("veuillez saisir le taux de change $ to " & currency_selling.text)

If taux = False Then
MsgBox "Le taux de change $ to " & currency_selling.text & " est indispensable", , "Service Analyseur"
Exit Sub
Else
While IsNumeric(taux) = False
taux = InputBox("veuillez saisir l...

VBA : une input box à plusieurs entrées ?

Bonjour à tous et à toutes,

Après un mois de lectures de tutos.. je commence à me faire plaisir en VBA et c’est en partie grâce à vous. Merci.

Je poste maintenant pour la raison suivante :

- j’essaye de créer un formulaire avec de multiples entrées dont la finalité serait de remplir une base de données de cotisants ( Nom, prénom, adresse…). Pour l’instant ma macro ne me convient pas car il s’agit d’une succession de Inputbox basiques comme ceci :

Dim NOM, PRENOM as string

NOM = InputBox « Merci de rentrer le nom du cotisant »
Activecelle.offset(0,1) .value = NOM
PRENOM = InputBox « Merci de rentrer...

Inputbox et liste déroulante

Bonjour,

J'ai un fichier dans lequel en cellule AC7 j'ai une liste déroulante de choix (ZC, ZG2, ZAB, ZYC.....) et j'aimerais que lorsque je choisi "ZG2" une boite de dialogue de type inputbox apparaisse automatiquement et que le résultat donné dans la inputbox soit retranscrit en cellule Y7. Je pense ne pas être trop loin de la solution mon seul problème c'est que la macro ne se lance pas automatiquement lorsque je fais ma sélection dans la liste déroulante :

Sheets("Temp").Activate

    nom = InputBox("Indiquez le numéro de facture affilié à l'avoir : ")

    If Range("AC7").Value = "ZG2" Then

        Call InputBox("n...

VBA / InputBox

Introduction Cette fiche pratique fait suite à la discussion initiée par papou9 sur le forum Programmation/VB/VBA ; à savoir : « Interrompre une macro pour entrer une donnée ». Nous avons plusieurs boîtes nous permettant de dialoguer avec l'utilisateur. MsgBox, InputBox, UserForm, etc. Pour répondre à une question utile au code, réponse qui ne serait pas oui, non, ou autre, l'InputBox est la boîte adéquate. En effet, comme le souligne la définition du site Msdn (Microsoft) : Affiche un message dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis retourne le contenu de la zone de texte sous la forme d'une chaîne. Nous allons, dans cette fiche pra...