J'ignore pourquoi, mais il me semble que mon code original marche! Je n'ai plus de message d'erreur.
Merci de votre patiente!
Private Sub CommandButton8_Click() 'bouton Save
Référence = ActiveCell.Value
End Sub
Private Sub CommandButton10_Click() 'bouton Recall
Dim strArray() As String
Dim hour As String: hour = "0"
Dim min As String: min = "0"
Dim sec As String: sec = "0"
Dim totalSeconds As Integer: totalSeconds = 0
strArray = Split(Référence, ":")
If UBound(strArray) = 1 Then
min = strArray(0)
sec = strArray(1)
Else
hour = strArray(0)
min = strArray(1)
sec = strArray(2)
End If
totalSeconds = totalSeconds + 3600 * CInt(hour)
totalSeconds = totalSeconds + 60 * CInt(min)
totalSeconds = totalSeconds + sec
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim errorCode As Integer
Dim waitForReturn As Boolean: waitForReturn = True
errorCode = wsh.Run("powershell.exe –ExecutionPolicy Bypass -File """ & Application.ActiveWorkbook.Path & "\stop_vlc_process.ps1""", 6, waitForReturn)
Call Shell("powershell.exe –ExecutionPolicy Bypass -File """ & Application.ActiveWorkbook.Path & "\start_vlc_with_time.ps1"" -time " & totalSeconds, 6)
End Sub[/code]