Erreur d'execution d'un script

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?

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

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é ;)