Discussion :

[Curveater]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:



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

Merci pour votre aide,

Cdt,

Ludovic

[Curveater]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Curveater]

J'ai résolu mon pb ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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