Function WmPlaySound(MySound) 'avec VLC(32/64 bits)
Dim WshShell, A$, B$, C$
A = "C:\Program Files\VideoLAN\VLC"
B = "C:\Program Files (x86)\VideoLAN\VLC"
If Dir(A, vbDirectory) <> "" Then C = A
If Dir(B, vbDirectory) <> "" Then C = B
If C = "" Then MsgBox "Vous n'avez pas VLC installé sur votre pc": Exit function
Set WshShell = CreateObject("WScript.Shell")
WshShell.exec C & "\vlc.exe """ & MySound
Set WshShell = Nothing
End Function