lancer un programme avec des paramètres et un chemin relatif sous powerpoint

Question

Bonjour,
Je réalise actuellement une présentation powerpoint dans laquelle je veux lancer des vidéos qui ont des formats multiples et que je ne souhaites pas réencoder en format WMV. J'ai donc choisi mon lecteur préféré : VLC.
Jusque là tout va bien puisque j'ai réussi à écrire le code suivant avec des paramètres qui me permettent de lancer la vidéo en plein écran et de fermer VLC une fois terminée la lecture : 
Sub video1()
Shell """C:\Program Files (x86)\VideoLAN\VLC\VLC.exe"" ""--fullscreen"" ""--play-and-exit"" ""C:\user\XXX\Dropbox\présentation\video1.mkv"""
End Sub

Le problème est que j'utilise Dropbox (comme vous l'avez remarquez) et que ce dossier n'a pas le même chemin selon l'ordi que j'utilise. De ce fait, je voudrais remplacer C:\user\XXX\Dropbox\présentation\video1.mkv par un chemin relatif, d'autant que le powerpoint se trouve dans le même répertoire que les vidéos.
J'ai déjà essayer ceci (et de nombreux autres codes) sans résultat : 
Sub video1()
Shell """C:\Program Files (x86)\VideoLAN\VLC\VLC.exe"" ""--fullscreen"" ""--play-and-exit"" & ActivePresentation.Path & ""\video1.mkv"""
End Sub


Quelqu'un a t'il une idée pour me faire avancer ?

acive · Answer

Salut,
si je comprends bien ton dossier dropbox est partagé avec d'autres utilisateurs.

il faudrait alors que tu copies ton exe dans le dossier partagé de la dropbox, et dans ton programme au lieu d'écrire "C:\user\XXX\Dropbox\présentation" tu écris Application.startuppath & "".

En plus tu peux faire des mises à jour quand tu veux tout en étant toujours synchronisé avec les autres utilisateurs, par le biais de la dropbox. 


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

mptom59 · Answer

Merci Acive pour cette réponse.
Effectivement je veux toujours être synchronisé avec les autres ordinateurs mais je ne comprends pas ce que tu me recommandes.
Si je crée ce script dans powerpoint 
Sub video1()
Shell """VLC.exe"" ""--fullscreen"" ""--play-and-exit"" & Application.startuppath & " \ " & ""video1.mkv"""
End Sub
il dit qu'il y a un bug...

mptom59 · Answer

Venant de trouver la solution, voici le script que j'ai utilisé.

Sub video1()
Dim film As String
film = "C:\Program Files (x86)\VideoLAN\VLC\VLC.exe" & " --fullscreen" & " --play-and-exit " & ActivePresentation.Path & "\video1.mkv"
Shell (film)
End Sub


Encore merci

acive · Answer

Re:
Désolé pour le retard, mais ce que je voulais dire c'est que au lieu de développer ton programme sur un dossier quelconque de ton disque dur, tu le développes dans un dossier de la dropbox (dossier qui est partagé avec d'autres utilisateurs).

Pour toi ça ne change rien c'est comme si tu étais (d'ailleurs tu es) sur ton disque dur.

Dans ta solution, il me semble que "C:\Program Files" avec windows seven n'existe pas, tu vas te retrouver coincé un moment ou un autre.

Si tu veux, partage avec moi ton dossier avec le code dans la dropbox et on regarde ensemble ce qui se passe, je m'en sers depuis des années et pas de problème.
Mon Mail: carlos_gwada@hotmail.fr




Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

mptom59 · Answer

Bonjour Acive,
Je ne cherchais pas à développer un programme mais juste à lancer le logiciel VLC de videolan à partir d'une présentation powerpoint qui se trouve dans ma dropbox.
Effectivement "C:\Program Files" n'existe pas sous seven mais "C:\Program Files (x86)" existe bien et tous mes ordinateurs sont sous seven.
Enfin, comme je le dis plus haut, j'ai trouvé un code qui fonctionne parfaitement pour ce que je veux faire.

Encore merci de ton aide.

Lancer un programme avec des paramètres et un chemin relatif sous powerpoint

5 réponses

Votre réponse

Discussions similaires