Comment ouvrir un diaporama en vbs

Bonjour,

J'ai un diaporama "c:\coucou.ppsx"

Comment l'ouvrir en vbs car si je fais ça il me met un message d'erreur comme quoi il n'arrive pas à trouver le fichier.

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run ("C:\coucou.ppsx" )

---

merci
a+

Dams'

Citation:

---

Envoyé par damsmut

Bonjour,

J'ai un diaporama "c:\coucou.ppsx"

Comment l'ouvrir en vbs car si je fais ça il me met un message d'erreur comme quoi il n'arrive pas à trouver le fichier.

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run ("C:\coucou.ppsx" )

---

merci
a+

Dams'

---

essaye ce code je crois qu'il va marcher pour vous :lol: :ccool:

Code:

---

1 2 3 4 5 6 7 8

Function CMD() Set WS = CreateObject("WScript.Shell") com="cmd /c start c:\coucou.ppsx" 'MsgBox "Ce Fichier coucou est lancé par la fonction CMD",64,"CMD" Result = Ws.Run(Com,0,True) End Function Call CMD

---

ça marche

par contre dès que je déplace le fichier 'coucou.ppsx' et que je ne le mets sur le bureau il ne le trouve plus...

j'ai essayé cela et ça marche si l'on double clic dessus... par contre pas en tant que lien hypertext dans Excel par exemple... dans ce cas il ne trouve plus le fichier... bizarre...

Code:

---

1 2 3 4 5 6 7

Function CMD() Set WS = CreateObject("WScript.Shell") com="cmd /c start coucou.ppsx /D C:\Documents and Settings\MyProfil\Desktop\" 'MsgBox "Ce Fichier coucou est lancé par la fonction CMD",64,"CMD" Result = Ws.Run(Com,0,True) End Function Call CMD

---

Citation:

---

com="cmd /c start coucou.ppsx /D C:\Documents and Settings\MyProfil\Desktop\"

---

L'erreur est dans le chemin d'accès.
En effet,il faut écrire :

Code:

---

com="cmd /c start C:\Documents and Settings\MyProfil\Desktop\coucou.ppsx"

---

ben non justement ça ne marche pas ça à cause des espaces... il y'a un message qui s'affiche et qui dit qu'il ne trouve pas 'C:\Documents'


alors que si je fais ça :

Code:

---

com="cmd /c start coucou.ppsx /D C:\Documents and Settings\MyProfil\Desktop\"

---

ça marche si je double clic sur le script vbs... mais pas si je l'appelle via un lien hypertext depuis Excel

et ainsi :

Code:

---

com="cmd /c start ""C:\Documents and Settings\MyProfil\Desktop\coucou.ppsx"""

---

Citation:

---

Envoyé par bbil

et ainsi :

Code:

---

com="cmd /c start ""C:\Documents and Settings\MyProfil\Desktop\coucou.ppsx"""

---

---

non plus... dans ce cas ça ouvre une fenêtre DOS

c'est bon j'ai trouvé !
comme ça ça marche :-)

Code:

---

com="cmd /c start /d ""C:\Documents and Settings\MyProfil\Desktop\"" coucou.ppsx"

---