Discussion :

[majothi]

Bonjour;

Dans ma macro, je lance un fichier .bat pour récupérer des données.
Je voudrais avoir votre aide pour que ma macro se bloque le temps que je lance le fichier .bat et qu'elle repart une fois le fichier .bat fermé

Pour me dépanner, j'ai fais ceci, pas terrible.......

Code :

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

1
2
3
4
5
6
7
8
 
Sub transfert_coros()
'effectue le transfert de syntotal par FTP
    valeur = Shell("J:\Funf_gen\Production\Trs\bilanhebdo\fic.bat", 1)
 
'blocque la macro jusqu'à la fin du transfert
    answer = MsgBox(" Cliquer sur OK quand la fenêtre de transfert est fermée ", vbOKCancel + vbInformation)
End Sub

J'ai ceci dans le fichier .bat

Code :

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

1
2
 
FTP -n -s:"J:\Funf_gen\Production\Trs\bilanhebdo\FIC.FTP" 10.128.115.15

Merci d'avance de votre aide, en espérant que mes explications sont assez claires.

[kilimanjaro]

Bonjour,

Voici ce que j'utilise :

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
21
22
23
24
25
26
27
28
 
 
Option Compare Database
Option Explicit
'========================
'Cette section doit être dans le HAUT d'un module standard.
'C'est la déclaration des API
Declare Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function OpenProcess Lib "Kernel32"   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long,   ByVal dwProcessId As Long) As Long
Public Const INFINITE = &HFFFF
 
Function LanceEtAttendLaFin(ByVal CheminComplet As String) As Long
Dim ProcessHandle As Long
Dim ProcessId As Long, ret&
 
ProcessId = Shell(CheminComplet, vbNormalFocus)
ProcessHandle = OpenProcess(&H1F0000, 0, ProcessId)
LanceEtAttendLaFin = WaitForSingleObject(ProcessHandle, INFINITE)
 
End Function
 
Function WaitForEnd(Fichier) As Long
  Dim wsh As Object
  Set wsh = CreateObject("WScript.Shell")
 
  WaitForEnd = wsh.Run(Fichier, 1, True)
 
End Function

Exemple d'utilisation :

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
 
 
Sub ZIPMDB_DISPO(site As String, disque As String)
        Dim chemin As String
        Dim filename As String
        filename = "D:\BAT\EXTR_DISPO.bat"
        Open filename For Output As #1
        Print #1, "d:\pkzipc -extract=up -nofix " & disque  & "SAUVE\" & site & ".ZIP *.mdb D:\NMQMS\QUICKDISPO\QUICKSPE\bases\"
        Close #1
 
        chemin = "D:\BAT\EXTR_DISPO.bat"
 
        WaitForEnd chemin
 
End Sub

[majothi]

Merci pour ton aide kilimanjaro.

Voici ta proposition adapté à ma macro, c'est nickel

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
21
22
23
24
25
 
Declare Function WaitForSingleObject Lib "Kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
Sub transfert_coros()
Dim chemin As String
Dim filename As String
 
'effectue le transfert de syntotal par FTP
         filename = "J:\Funf_gen\Production\Trs\bilanhebdo\fic.bat"
        Open filename For Output As #1
        Print #1, "FTP -n -s:" & "J:\Funf_gen\Production\Trs\bilanhebdo\FIC.FTP" & " " & "10.128.115.15 "
        Close #1
 
        chemin = "J:\Funf_gen\Production\Trs\bilanhebdo\fic.bat"
 
        WaitForEnd chemin
end sub
 
Function WaitForEnd(Fichier) As Long
  Dim wsh As Object
  Set wsh = CreateObject("WScript.Shell")
 
  WaitForEnd = wsh.Run(Fichier, 1, True)
 
End Function

Merci encore

[AlainTech]

Problème résolu?

Bouton !