Problème VBScript

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

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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?
    1. 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.
      1. 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é
        1. 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
        2. ET POUR le deletefiles et le fileexists comment faire ?
        3. 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
        4. Ou po ?