Demande d'un noob : Ouvrir excel en w7 sous vbs

Bonjour,

je vais essayer de faire court, surtout que je ne suis pas spécialiste de scripts vbs.

Ma société utilise un script pour transférer des fichiers d'un moyen système vers excel et ouvre directement le fichier excel généré sur le PC utilisateur.
Je vous passe les détails génération du fichier excel car tout se passe bien et c'est pas le propos.
Mais c'était une population de PC sous XP.
Depuis que nous sommes passés sous W7, les scripts qui contenaient le lancement d'excel ne marchent plus.

Voici le code concerné : (extraits)
Partie init:

Code:

---

1 2 3 4 5 6 7

Dim fso, WshShell Dim fileout_set Dim Cmd, ArReg(2), s, ArReg(0) = "Open" ArReg(1) = "Edit" Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell")

---

Partie programme:
call LectureRegistre

Code:

---

1 2	cmd = "%COMSPEC% /c " & cmd & " " & fileout WshShell.Run cmd, 0, False

---

Sous Programme appelé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function LectureRegistre cmd = VbEmpty s = 0 For s = 0 to 1 On Error Resume Next cmd = WshShell.RegRead ("HKEY_CLASSES_ROOT\Applications\Excel.exe\shell\" & ArReg(s) & "\command\") if Cmd <> VbEmpty Then Exit Function End If Next   End Function ---------------- J'ai essayé de ne pas toucher au sous-programme et j'avais remplacé le code (Programme) par : If fso.FolderExists("C:\Program Files") Then call LectureRegistre cmd = "%COMSPEC% /c " & cmd & " " & fileout ELSE cmd = "C:\Program Files (x86)\Microsoft Office\Office14\excel.exe " & "/E " & fileout cmd = "%COMSPEC% /c " & cmd End If

---

Mais ca ne marche pas mieux, pas d'erreur, mais pas d'ouverture du fichier excel

Bienvenue à toutes les aides ou commentaires :D et merciiiiiiiiiiiiii

:salut:
Je suis sous Windows 7 32 bits
J'ai crée un dossier avec un nom qui contient des espaces dans mon cas c'est : E:\My test dossier\ et il m'ouvre bien mon fichier oscilloscope.xls qui se trouve dans ce dernier. :king:
Tester-le et dis moi, ça donne quoi comme résultat ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

MsgBox DblQuote(CheminExcel() & "\excel.exe") Set ws = CreateObject("wscript.Shell") fileout = "E:\My test dossier\oscilloscope.xls" cmd = "cmd /c CD " & DblQuote(CheminExcel()) & " | Start excel.exe" &" /E "& DblQuote(fileout) msgbox cmd Ouvrir = ws.run(cmd,0,False) '********************************************************************************************** Function CheminExcel() Dim appXL,s Set appXL = CreateObject("Excel.Application") CheminExcel = appXL.Path appXL.Quit Set appXL = Nothing End Function '********************************************************************************************** 'Fonction pour ajouter les doubles quotes dans une variable Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34) End Function '**********************************************************************************************

---

Merci, ce script marche bien sous W7 64 bits également.
Par contre malgré adaptation au script initial, pas d'erreur mais pas d'ouverture excel.
Si ça se trouve le souci est encore ailleurs (constitution de notre fileout par exemple)

En tout cas un grand merci à toi !
Super forum :D

:salut:
Pouvez-vous poster votre code modifié en entier et :tagcode:
n'oubliez pas de commenter chaque ligne pour bien comprendre votre but final ;)
:merci: