Discussion :

[Zelfix]

Bonjour à tous,

J'ai besoin de lancer une application en .bat depuis un bouton de mon menu Access j'ai trouver qu'on pouvait utiliser la commande ChDir et voici comment je l'ai utilisée moi :

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
20
Private Sub Commande55_Click()
On Error GoTo Err_Commande55_Click
 
    ChDrive "E"
    ChDir "\Access\"
    Fichier = Dir("Sauvegarde.bat")
 
    Dim stDocName As String
 
    stDocName = "Quitter"
    DoCmd.RunMacro stDocName
 
Exit_Commande55_Click:
    Exit Sub
 
Err_Commande55_Click:
    MsgBox Err.Description
    Resume Exit_Commande55_Click
 
End Sub

mais cela ne marche pas j'ai aussi essayé :

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
Private Sub Commande55_Click()
On Error GoTo Err_Commande55_Click
 
    ChDir "E:\Access\Sauvegarde.bat"
 
    Dim stDocName As String
 
    stDocName = "Quitter"
    DoCmd.RunMacro stDocName
 
Exit_Commande55_Click:
    Exit Sub
 
Err_Commande55_Click:
    MsgBox Err.Description
    Resume Exit_Commande55_Click
 
End Sub

et pareil rien ne marche.

Voici le .bat que j'utilise qui est tout simple :

copy E:\Access\SUIVI-RAI.mdb P:\SUIVI-RAI-TESTSAUV.mdb

Merci de m'expliquer comment utiliser la commande ChDir ou une autre commande afin de réaliser cette opération.

Cordialement, Zelfix.

[Zelfix]

UP SVP j'ai vraiment besoin de réaliser cette commande afin de finaliser mon projet.


Cordialement, Zelfix

[LedZeppII]

Bonsoir,

Pour exécuter ton .bat :

Code :

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

    Shell "E:\Access\Sauvegarde.bat"

A+

[Zelfix]

Merci a toi sa marche trés bien.