Problème VBScript

Fermé
Utilisateur anonyme - 3 août 2011 à 15:10
 Utilisateur anonyme - 12 août 2011 à 00:23
Bonjour,

J'aimerais savoir pouquoi ceci ne fonctionne pas :

age = inputbox(age, "Quel est ton âge ?")
prenom = inputbox(prenom, "Tu t'appelles comment ?")
ville = inputbox(ville, "Tu habites dans quelle ville ?")
vacances = inputbox(vacances, "Es-tu travailleur(euse) ou en vac ?")
satisfaction = inputbox(satisfaction, "Quel est ton degrès de satifaction de ce message ?")
MsgBox Message & "Tu as donc " & age & "Tu t'appelles " & prenom & Tu habites à " & ville & "Tu es " & vacances & "Tu es satisfait(e) à" & satisfaction & "!"

Merci d'avance




A voir également:

6 réponses

denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
3 août 2011 à 15:28
age = inputbox("Quel est ton âge ?", "age")
prenom = inputbox("Tu t'appelles comment ?", "prenom")
ville = inputbox("Tu habites dans quelle ville ?", "ville")
vacances = inputbox("Es-tu travailleur(euse) ou en vac ?", "vacances")
satisfaction = inputbox("Quel est ton degrès de satifaction de ce message ?", "satisfaction")
MsgBox "Tu as donc " & age & "Tu t'appelles " & prenom & "Tu habites à " & ville & "Tu es " & vacances & "Tu es satisfait(e) à" & satisfaction & "!"

Ca devrait marcher comme ca, tu veux explications?
0
Utilisateur anonyme
4 août 2011 à 11:01
0Merci j'ai trouvé avant que tu répondes lol mais je te remercie car c'est surement une autre explication attend j'essaie ta soluce :)
MERCI!!!!Ca marche autant que mon script que j'ai écrit. Moi j'ai réussi à mettre des & "%." à la fin pour satifaction et j'ai mis des espaces pour que les noms se distinguent bien. Cependenant j'ai une question concernant le VBScript :

Comment utiliser le procédé deletefile et fileexists et savoir à quoi sert la variable Dim.
0
denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
5 août 2011 à 04:44
0
Utilisateur anonyme
5 août 2011 à 19:54
Désolé je ne vois pas la solution lol.
Moi j'ai fais des trucs meilleurs pour ouvrir et ferme les deux lecteurs regarde :
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next

Et ca marche stu ve;)
Et tu peux le programmer avec les taches planifiées de windows ;)
Sinon comment faire pour deletefiles et filesexist dsl g pa trouvé
0
denstieven Messages postés 662 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 15 juillet 2012 41
6 août 2011 à 05:44
je connais deja ca :) j'ai fait un vbs avec ce bout de code mais qui s'execute en boucle tout les 30 secondes et mon ami etait terorisé xD
0
Utilisateur anonyme
7 août 2011 à 14:29
ET POUR le deletefiles et le fileexists comment faire ?
0
Utilisateur anonyme
8 août 2011 à 13:26
Merci j'ai vu maintenant ;) donc


Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub

Et jdois écrire dans filespec le chemin du fichier ca
0
Utilisateur anonyme
8 août 2011 à 13:26
Ou po ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
8 août 2011 à 14:06
Nan :s
0
Utilisateur anonyme
12 août 2011 à 00:23
UP
0