Discussion :

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

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

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

merci
a+

Dams'

[hackoofr]

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 :

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

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

Code :

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

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

[damsmut]

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

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

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

[l_autodidacte]

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 :

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

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

[damsmut]

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 :

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

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

[SfJ5Rpw8]

et ainsi :

Code :

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

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