ouvrir un fichier bat par vba

Question

bonjour,

je n'arrive pas a faire excuter un fichier .bat par une macro vba
j'ai creer un fichier sous c:/toto/form

lorsque je clique manuellement dessus ca marche 
il met a jour un autre fichier dans le meme repertoire avec une autre extention ( .mbx)

pouvez vous me donner le bout de code permettant d'executer mon fichier 

merci

cs_kazer04 · Answer

je sais pas la commande shell marche comme en vb6

didopen · Answer

j'ai essaye avec shell effectivement je vois le fichier s'ouvrir mais il n'execute pas ce qu'il y a dedans

cs_kazer04 · Answer

passe moi le code shell

didopen · Answer

Sub V()


Dim vchem As String
vchem = "c:	oto\form.BAT"
VCHEMA = "c:	oto\formulaire.dbx.mbx"


Open vchem For Append As #1
Write #1, Start; "c:	oto\oe2mbx.exe c:	oto\arriv.dbx"
Close #1


Dim MyString, MyNumber


Open "C:	oto\form.bat" For Input As #1    ' Ouvre le fichier en lecture.
 'EOF (1)   ' Effectue la boucle jusqu'à la fin du fichier.
  '  Input #1, MyString, MyNumber    ' Lit les données dans deux variables.
    ' Affiche les données dans la fenêtre Exécution.
   retval = Shell("C:	oto\form.bat", 1)
   
   Save = "C:	oto\formulaire.dbx.mbx"
   Save = "C:	oto\form.bat"
   Reset
Close #1    ' Ferme le fichier.


End Sub

didopen · Answer

ce code a le meme effet

Sub v3()
Set MyShell = CreateObject("WScript.Shell")
MyShell.Run "C:	oto\form.bat"


End Sub

Ouvrir un fichier bat par vba

5 réponses

Votre réponse

Discussions similaires