Lancer un script Python à partir d'une Macro VBA

Bonjour,

Lorsque je créé une macro VBA avec le script suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub RunPythonScript()   Dim objShell As Object Dim PythonExe, PythonScript As String   Set objShell = VBA.CreateObject("Wscript.Shell")   PythonExe = "C:\APPLI\Python27\python.exe"   PythonScript = "P:\GDM\Portfolios_Benchmarks_Management\Automation\convertisseur_format_histo_Atlas\convertisseur_format_histo_Atlas.py" objShell.Run (PythonExe & PythonScript)   End Sub

---

J'obtiens l'erreur ci-dessous:

Pièce jointe 609028

Avez vous idée pourquoi? Le script python marche parfaitement si on l'éxécute sans le VBA...

Merci pour votre aide,

Cdt,

Ludovic

Si j'ajoute des triples quotes dans les chemins d'accès, je n'ai plus l'erreur:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub RunPythonScript()   Dim objShell As Object Dim PythonExe, PythonScript As String   Set objShell = VBA.CreateObject("Wscript.Shell")   PythonExe = """C:\ProgramData\Anaconda3\python.exe"""   PythonScript = """P:\GDM\Portfolios_Benchmarks_Management\Automation\convertisseur_format_histo_Atlas\convertisseur_format_histo_Atlas.py""" objShell.Run (PythonExe & PythonScript)   Dim astring As String End Sub

---

Cependant le code python ne se lance pas correctement.

Pourtant si je me place dans le répertoire ou se trouve le xlsm et le .py et que je lance le script python avec python "nomdufichier.py" il fonctionne correctement...

J'apperçois le texte suivant dans le cmd prompt lorsque je lance la macro vba:

Traceback: Most recent call
File P:\GDM\Porfolios_Benchmarks

Mais le cmd prompt disparait je pense avant qu'il ait la possibilité d'écrire la suite.

Merci pour votre aide,

Cdt,

Ludovic

J'ai résolu mon pb ainsi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit   Sub RunPythonScript()   Dim folder_path, script_name, script_path, commandstring, PythonExe As String   PythonExe = "C:\ProgramData\Anaconda3\python.exe"   folder_path = Application.ThisWorkbook.Path script_name = "convertisseur_format_histo_Atlas.py" script_path = """" & folder_path & "\" & script_name & """"   commandstring = PythonExe & " " & script_path   ChDir folder_path Call Shell(commandstring)   End Sub

---