Microsoft 365 Récupérer le chemin d'accès de python.exe dans un code VBA

Sub Test_Path()
Cells(1).Resize(UBound(Split(Environ("PATH"), ";")) + 1) = _
        Application.Transpose(Split(Environ("PATH"), ";"))
End Sub

Sub GetPythonPath()
    Dim command As String
    Dim output As String
   
    ' Construire la commande pour obtenir le chemin d'accès de Python
    command = "where python ""import sys; print(sys.executable)"""
   
    ' Exécuter la commande et capturer la sortie
    output = ExecCmd(command)
   
    ' Afficher le chemin d'accès de Python
    MsgBox output
End Sub

Function ExecCmd(cmd As String) As String
    Dim objShell As Object
    Dim objCmd As Object
    Dim objOutput As Object
   
    ' Créer les objets Shell, Cmd et Output
    Set objShell = VBA.CreateObject("WScript.Shell")
    Set objCmd = objShell.Exec(cmd)
    Set objOutput = objCmd.StdOut
   
    ' Lire la sortie de la commande
    ExecCmd = objOutput.ReadAll
   
    ' Libérer les objets
    Set objOutput = Nothing
    Set objCmd = Nothing
    Set objShell = Nothing
End Function

Sub test_python_OK()
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c where python>C:\Users\STAPLE\EXCEL\test.txt", 0, True
End Sub

Sub test_python_BIS_OK()
Dim strPath$, strCMD$
Set objShell = CreateObject("WScript.Shell")
strPath = objShell.SpecialFolders("Desktop")
strCMD = "cmd /c where python>" & strPath & "\pPath.txt"
objShell.Run strCMD, 0, True
End Sub