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 : Sélectionner tout - Visualiser dans une fenêtre à part
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+