Discussion :

[Linio]

Bon je commence à me tirer les cheveux sur ma macro.

Je dois lancer à la fin de celle ci une commande dos qui traite un fichier que je viens de créer dans ma feuille excel. Cette commande semblait marcher il fut un temps, et maintenant il semble que ça ne marche plus vraiment. J'ai beau tourner et retourner encore le schmiblick, le fichier ne veux pas se lancer.

Voilà le code:

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
  oShell.Run ThisWorkbook.Path & "\run.bat < " & ThisWorkbook.Path & "\requests.sql"
  'oShell.Run ThisWorkbook.Path & "\mysql.exe --password=passx -u username -h 128.0.0.1 db < " & ThisWorkbook.Path & "\requests.sql"

La seconde ligne commentée correspond en gros à ce qui se trouve dans le .bat

Si je lance le bat moi même avec la redirection, ça marche, mais là dans l'état non, semble t'il qu'il me rajoute un '0' avant le < de la redirection qui fait un peu tout péter. Je sais plus trop à quel sain me vouer, donc si vous avez une idée...?

[tonton fred]

Bonjour,
Peut etre

Code :

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

call shell(ThisWorkbook.Path & "\run.bat < " & ThisWorkbook.Path & "\requests.sql")

[Linio]

Non ça ne marche pas.

En fait il ne veux pas me lancer le batch parce qu'il ne reconnait pas le fichier vu qu'il ne considère pas le répertoire de travail comme étant le répertoire où est stocké le .xls d'où est lancé la macro, donc je dois lancer l'exécutable avec toutes les options, mais même là ça ne marche pas, je pense qu'il ne doit pas aimer la longue ligne de commande, il ne doit prendre qu'un seul fichier sans options.

Un peu pourri quand même ce truc de shell...

Edit: finalement en utilisant la commande:
oShell.CurrentDirectory = ThisWorkbook.Path

J'ai réussi à changer le répertoire courant et à lancer mon .bat

Ce n'était pas vraiment ce que je voulais mais ça marche.