bonjour a vous deux! Curulis57, malheureusement je ne peux pas ouvrir les fichiers xlsm. Et oui le Canadien
Isabelle, j'ai adapté ton code a mon application. Et ca marche tres bien! Avec ce code je peux faire jouer une piste d'une piece, avec le lecteur multimedia VLC.
a = 1 'on suppose la piste 1
fichier = Range("P" & Target.Row).Value 'nom de fichier, exemple: TEX_01 (track export/sd#1)
nt = Left(fichier, Len(fichier) - 3) & a & Right(fichier, 3) 'exemple TEX1_01 (piste 1 du sd#1)
errorCode = wsh.Run("powershell.exe –ExecutionPolicy Bypass -File """ & Application.ActiveWorkbook.Path & "\stop_vlc_process.ps1""", 6, waitForReturn) 'nécessaire pour fermer VLC si déja ouvert
Call Shell("powershell.exe –ExecutionPolicy Bypass -File """ & Application.ActiveWorkbook.Path & "\start_vlc_with_time.ps1"" -time " & totalSeconds & " -media " & nt & ".wav", 6)