PC a MAC module visionnage video
Bonjour a tous voila j'ai un petit programme de visionnage sous Excel
Et je souhaite le faire passer sous mac avec le logiciel QuickTime player pour l'exécuter
Code:
1 2 3 4 5 6 7 8 9 10
| Sub VisionnageSequence(ByVal vVideo As String, ByVal vTime As String)
Dim LV, App As String, vHeure As Variant
vHeure = ((Hour(vTime) * 3600) + (Minute(vTime) * 60) + Second(vTime)) * 1000
App = ThisWorkbook.Path & "\mplayerc.exe"
While InStr(vVideo, "Bègles") > 0
vVideo = Replace(vVideo, "Bègles", "")
Wend
LV = Shell(App & " /play " & vVideo & " /start " & vHeure & " /fixedsize 1300,700", 1) ' Exécute l'application mplayerc.
End Sub |
voici le programme qui fonctionne sous win
merci de vos réponses
a+