Problème VBScript

Utilisateur anonyme -  
 Utilisateur anonyme -
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

  1. denstieven Messages postés 717 Statut Membre 42
     
    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
  2. Utilisateur anonyme
     
    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
  3. Utilisateur anonyme
     
    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
    1. denstieven Messages postés 717 Statut Membre 42
       
      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
    2. Utilisateur anonyme
       
      ET POUR le deletefiles et le fileexists comment faire ?
      0
    3. Utilisateur anonyme
       
      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
    4. Utilisateur anonyme
       
      Ou po ?
      0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question