Execution d'un fichier batch a partir de VBA Access

Version imprimable

16/04/2010, 15h38
jj4822

Execution d'un fichier batch a partir de VBA Access

Bonjour.

Je souhaite, sous VBA, lancer l'execution d'un fichier batch. Ce fichier batch lance un programme de rajout de donnees dans une table MySQL a partir d'un fichier *.txt contenant les donnees

J'ai essaye en utilisant la methode sequentielle (open "c:\...." for input as 1#)puis les TextStream. Rien a faire.

Comment peut on lancer l'execution d'un fichier batch a partir d'Access ?

Merci.
Cdlt
16/04/2010, 16h46
marot_r

si tu es sous XP :

Code:

shell "cmd /c c:\toto\titi\TonBat.bat"

le /c ferme la fenêtre DOS après exécution. Si tu veux qu'elle reste ouverte tu peux mettre /k à la place de /c ou ajouter une instruction Pause à la fin de ton batch.

Si tu n'est pas sous XP c'est toujour shell qu'il faut utiliser mais la syntaxe de la ligne DOS pourrait changer.

Attention tu ne peux pas facilement savoir si tion .bat a fini de s'éxécuter. Access lance le .bat et passe à l'instruction suivante sans attendre le résultat du .bat.

Je ne connais pas mySQL mais ne peux-tu pas utiliser une liaison ODBC et appeler une procédure stockée dans mySQL ?

A+
16/04/2010, 17h01
jj4822

Merci pour cette reponse.

Effectivement, j'arrive a executer le batch.

Merci.
Cdlt
04/05/2010, 12h02
jj4822

Bonjour.

En me connectant par ADO, j'arrive a executer des procedures de suppression de donnees en tables MySQL. Procedures programmees sur la base MySQL.

Pour ce qui est des rajouts, il semble que ce soit different. J'execute un fichier batch installe dans un repertoire sous Windows. Ce fichier batch execute un programme sur la base MySQL permettant d'importer les donnees d'un fichier externe.

Cdlt.
Jean.
07/03/2019, 15h01
MatthieuB_

Nécromancie de sujet, mais il correspond parfaitement à une question que je me pose ...

Est-il possible d'attendre la fin du .bat pour continuer la macro ?
11/03/2019, 13h49
marot_r

Bonjour.

Comme je l'ai dit :

Citation:

Attention tu ne peux pas facilement savoir si ton .bat a fini de s'exécuter. Access lance le .bat et passe à l'instruction suivante sans attendre le résultat du .bat.

Si tu as besoin de cela, il faut surveiller les processus de Windows et vérifier que le .bat a fini de s'exécuter.
(Désolé je sais que le sujet a pas mal été traité mais je ne trouve pas d'exemples).

Sinon, il semblerai qu'il y ai cette solution :

https://danwagner.co/how-to-run-a-ba...shes-with-vba/

Qui aurai l'avantage de "bloquer" VBA le temps de l'exécution.

A+

J'ai utilisé cette solution qui semble marcher :

Code:

1
2
3
4
5
6
7
8
9
'Attente fin bat : https://www.jbnet.fr/developpement/access/access-comment-attendre-la-fin-dexecution-dun-fichier-externe-cmd-bat-etc.html
'https://officetricks.com/convert-vba-declare-compatible-64-bit-office/
Public Declare PtrSafe Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare PtrSafe Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Const INFINITE = &HFFFF
Function WaitForEnd(strFileToExec) As Long
    Set wsh = CreateObject("WScript.Shell")
    WaitForEnd = wsh.Run(strFileToExec, 1, True)
End Function

Lancée par :

Code:

codeRetour = WaitForEnd(Ch_acces & "\dos.bat")