Discussion :

[torrgovin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

?


Merci à vous !

[omen999]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[torrgovin]

Bonjour,

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

[omen999]

Mais ça me fait toujours la même erreur

et qui est ?

également que t'affiche la ligne suivante ?

msgbox oProgramfiles

[torrgovin]

Elle m'affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Program Files

[omen999]

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

[torrgovin]

lol

[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...

[ProgElecT]

ç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...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[omen999]

bonsoir ProgElectT,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tu peux donc laisser tomber ta fonction ConvertNomCourt...

[torrgovin]

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

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

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 et un bon week