Variable d'environnement VBS ?

Bonjour tout le monde,
J'ai fait un script tout simple pour exécuter un exe, mais la variable d'environnement pose un problème... Qu'elle est mon erreur ?
Voici mon script

Code:

---

1 2 3 4 5 6 7

Dim WshShell, oProgramfiles Set WshShell = WScript.CreateObject("WScript.Shell")'** Création de l'objet Shell ** oProgramfiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")   'lance le fichier contact Set aContact = WScript.CreateObject("WScript.Shell") aContact.Run oProgramfiles & ("\Internet Explorer\iexplore.exe")

---

:aie:?


Merci à vous !

salut,
je pense plutôt que le problème est ici:

Code:

---

aContact.Run oProgramfiles & ("\Internet Explorer\iexplore.exe")

---

à remplacer par

Code:

---

aContact.Run oProgramfiles & "\Internet Explorer\iexplore.exe"

---

il est également inutile d'instancier deux objets wshshell... ;)

Bonjour,

Merci pour votre réponse, mais il me semblait la même chose.
Mais ça me fait toujours la même erreur :oops:

Citation:

---

Mais ça me fait toujours la même erreur

---

et qui est ?

également que t'affiche la ligne suivante ?

Citation:

---

msgbox oProgramfiles

---

Elle m'affiche

Code:

---

C:\Program Files

---

c'est bien la bonne valeur...
donc quelle est l'erreur exacte ? ma crystal ball est out-of-order :calim2:

lol

http://img17.imageshack.us/img17/8707/erreurmt.png

ça veut dire a priori que le fichier "C:\Program Files\Internet Explorer\iexplore.exe" n'existe pas sur ta machine
c'est ballot de vouloir lancer internet explorer s'il a déjà été viré du disque... :calim2:

Citation:

---

Envoyé par omen999

ça veut dire a priori que le fichier "C:\Program Files\Internet Explorer\iexplore.exe" n'existe pas sur ta machine
c'est ballot de vouloir lancer internet explorer s'il a déjà été viré du disque... :calim2:

---

Peut être pas ;) , car chez moi (sous VISTA) il faut que je convertisse le chemin en court.
Une adaptation d'un programme VBS qui me sert de pense bête, que j'ai addapté pour ouvrire intenet-explorer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

'---------------------------- Function ConvertNomCourt(ChemFic) 'cette fonction convertie un chemin dossier et fichier en nom long 'vers un chemin et fichier cours 'exemple: ' C:\PersoFrancis\Utilisation de Scripting\Utilisation de Scripting\Projet1.vbp ' C:\PERSOF~1\UTILIS~1\UTILIS~1\Projet1.vbp   Dim Compos, Progra Set fs = CreateObject("Scripting.FileSystemObject")   Compos = Split(ChemFic, "\") Progra = Compos(0) & "\" 'recuperation de la lettre du disque 'ajout de la chaine de chaque dossier For T = 1 To UBound(Compos) - 1 Set f = fs.GetFolder(Progra & Compos(T)) Progra = Progra & f.ShortName & "\" Next 'ajout du nom du fichier Set f = fs.GetFile(Progra & Compos(UBound(Compos))) Progra = Progra & f.ShortName 'nettoyage Set f = Nothing Set fs = Nothing ConvertNomCourt = Progra End Function '-----------------------------------------------   Set wshell=CreateObject("WScript.Shell") Dim oProgramfiles oProgramfiles = wshell.ExpandEnvironmentStrings("%PROGRAMFILES%") 'MsgBox oProgramfiles Dim CheminCourt CheminCourt = ConvertNomCourt(oProgramfiles & "\Internet Explorer\iexplore.exe") 'MsgBox CheminCourt wshell.Run CheminCourt

---

Là, cela fonctionne, sinon j'ai la même boite d'erreur.

bonsoir ProgElectT,

il est temps que je révise mes fondamentaux :oops:
ce n'est pas un problème de version d'OS mais une petite subtilité syntaxique :aie:
les explications sont ici
et pour combiner le path avec une variable:

Code:

---

wshell.Run Chr(34) & oProgramfiles & "\Internet Explorer\iexplore.exe"""

---

tu peux donc laisser tomber ta fonction ConvertNomCourt... ;)

Ouff !
Je pensais que c'était tout simplement impossible.

Je comprends mieux, il manquait Chr(34) , c'était une erreur de syntax :ccool:

En tout cas, jolie réponse, et merci d'mavoir appris ça.
J'avais essayé de remplacer les espaces par des %20 , de mettre 3guillemets autour du lien, de toucher le code par ci par là, mais n'y faisait.

Merci à toi Omen999 et ProgElecT
Passez tous un bon noël http://1.bp.blogspot.com/_S051mRnaly...BNo%C3%ABl.gif et un bon week