Erreur d'execution d'un script

[dsyann]

bonsoir, voila je ne m'y connais pas du tout en vbs du peu que j'ai pu lire j'ai essayé ce script pour lancer Outlook selon la version installée sur une machine cliente en entreprise:

Code :

1
2
3
4
5
6
7
8
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set fl = CreateObject("Scripting.FileSystemObject") 
o7 = "%ProgramFiles%\microsoft office\office12\Outlook.exe" 
If fl.FileExists("o7") Then 
	WshShell.Run """%ProgramFiles%\microsoft office\office12\outlook.exe" 
Else 
	WshShell.Run """%ProgramFiles%\microsoft office\office14\outlook.exe" 
End If

A l'execution ce dernier ne prends pas compte du premier if et m'indique que le fichier specifié est introuvable avec un code 80070002 source null,

ce qui fait que sur une machine pour la meme configuration ou est installée office 2010 il marche et ou est installe office 2007 il ne marche pas et ce meme si je change la condition en testant sur le chemin 2010.
ai je commis une erreur?

[dsyann]

Post inutil, à supprimer si possible, je crois avoir trouver la solution:

Code :

1
2
3
4
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set fl = CreateObject("Scripting.FileSystemObject") 
 
WshShell.Run "outlook"

Encore une fois de plus désolé.

[ProgElecT]

Salut

Code :

If fl.FileExists("o7") Then

Là tu demande s'il existe le fichier o7

Code :

If fl.FileExists(o7) Then

maintenant tu indiques à la fonction s'il existe le fichier contenu dans la variable o7

Mais tu utilises mal %programFiles%
Exemple de

Code :

1
2
3
4
5
Set WshShell = CreateObject("WScript.Shell")
Prg=WshShell.ExpandEnvironmentStrings("%programFiles%")
MsgBox Prg,64,"Chemin Absolu du Program Files"
o7 =  Prg & "\microsoft office\office12\Outlook.exe"
msgbox o7

Motif de l'édit: il y a aussi cette solution, je ne reprenais que la structure du code proposé