attendre la fin d'une etape pour passé a l autre étape

**popofpopof** · 31/05/2018, 12h54

bonjour,

dans mon access je lance un compression d'un fichier et ensuite un commande pour transfere en ftp les donnée ( je pense par un fichier bat a lance le ftp)

mon problème est que la compression peux être longue et tu coup le ftp est lance avant la fin de la compression

comme lui dire attendre que la compression soit fini pour lance le ftp?

merci a vous

Code :

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

1
2
3
4
5
6
7
8
9
 
 
ZipRepertoire
Sleep 3000
Dim Commande As String
Commande = "\\sa-file01\ACCESBASESTAGNE$\BASETABLE\Flux ubliflow.bat"
Shell Commande
Sleep 3000
    MsgBox "Opération terminée !", vbInformation

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Sub ZipRepertoire()
    '
    'Source
    'http://www.codecomments.com/archive299-2006-2-295877.html
    '
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
    Dim Source, Destination, MyHex, MyBinary, i
    Dim oShell, oApp, oFolder, oCTF, oFile
    Dim oFileSys
 
    'Spécifiez le répertoire
 
 
     Source = GetDbPathOfLinkedTable("tblAdmin") & "FLUX_COMMERCIALISATION\fichier"
     Destination = GetDbPathOfLinkedTable("tblAdmin") & "FLUX_COMMERCIALISATION\ag313049.zip"
 
 
    MyHex = _
    Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
 
    For i = 0 To UBound(MyHex)
        MyBinary = MyBinary & Chr(MyHex(i))
    Next
 
    Set oShell = CreateObject("WScript.Shell")
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
 
    'Création de la base du fichier zip.
    Set oCTF = oFileSys.CreateTextFile(Destination, True)
    oCTF.Write MyBinary
    oCTF.Close
    Set oCTF = Nothing
 
    Set oApp = CreateObject("Shell.Application")
 
    Set oFolder = oApp.NameSpace(Source)
    If Not oFolder Is Nothing Then _
        oApp.NameSpace(Destination).CopyHere oFolder.Items
 
    Set oFile = Nothing
    On Error Resume Next
 
    Do While (oFile Is Nothing)
        'Attention: provoque une erreur 70 si un des fichiers à zipper
        'est toujours ouvert.
        Set oFile = oFileSys.OpenTextFile(Destination, ForAppending, False)
 
        If Err.Number <> 0 Then
            Err.Clear
        End If
    Loop
 
    Set oFile = Nothing
    Set oFileSys = Nothing
 
 
End Sub

**User** · 31/05/2018, 13h22

Bonjour,

Il y aurait pas moyen de convertir le code du batch en vba ?

Car normalement, une fois le batch lancé Access n'a plus le contrôle sur la procédure

Peut-être utiliser une fonction du modèle WScript.Shell pour lancer l'exécution du batch :

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
Function RunCmd(CmdStr As String) As Boolean
' Utilisé pour exécuter une commande ou un batch.
    Dim oWsc As Object
 
    Set oWsc = CreateObject("WScript.Shell")
    Dim oExec As Object
    Dim cpt As Long
 
    Set oExec = oWsc.Exec(CmdStr)
 
    If (oExec.StdErr.ReadAll() = "") Then
       RunCmd = True
    Else
       RunCmd = False
    End If
 
    'Debug.Print ("STDOUT" + oExec.StdOut.ReadAll())
    'Debug.Print ("STDERR" + oExec.StdErr.ReadAll())
    Set oWsc = Nothing
 
End Function

Cdlt,

**popofpopof** · 31/05/2018, 14h34

mon problème est avant de lance le bat il faudrait attendre le retour du "ZipRepertoire" fini pour lance le bat

**User** · 31/05/2018, 14h44

A quoi sert le :

Code :

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

On Error Resume Next

Dans la procédure du zip ?

Cdlt,

**popofpopof** · 31/05/2018, 14h46

je sais pas c'est un code que j'ai trouve et appliqué chez moi

**User** · 31/05/2018, 14h50

Cette procédure fonctionne sans souci quand elle est toute seule ?

**popofpopof** · 31/05/2018, 14h55

oui ceci me gére bien le ZIP et l'autre partie me génére bien l'exportation en FTP teste sur des bouton différents

mais la je souhaite le rentre automatique sur un seul bouton

le fichier zip ce fait mais comme il est un peux gros il prend du temps et le ftp est lancé hors le zip n'est pas fini et du coup j'ai une exportation d'un zip non fini

**User** · 31/05/2018, 15h10

je suis un peu étonné car normalement ce devrait-être séquentiel

**popofpopof** · 31/05/2018, 15h20

quand il me fais la compression il m'ouvre une fenêtre windows avec le temps de copie pour crée l'archive je pense que le problème est la

**User** · 31/05/2018, 15h52

Personnellement pour extraire un seul fichier avec 7-zip, 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
Function extractFile(source as string, destination as string) As Boolean
On error goto err_extractFile
Dim CmdStr As String
 
CmdStr = "c:\Program Files (x86)\7-Zip\7z.exe" & " e " & source & " -o" & destination
 
   If Not IsFile("c:\Program Files (x86)\7-Zip\7z.exe") Then
      CmdStr = "c:\Program Files\7-Zip\7z.exe" & " e " & source & " -o" & destination
   End If
 
   If RunCmd(CmdStr) Then
      extractFile = True
   Else
      extractFile = False
   End If
 
 
Exit Function
 
err_extractFile:
MsgBox Err.Description
extractFile = False
 
End Function

Avec la fonction RunCmd vue précédemment...si ça peut t'aider, il reste à parcourir les fichier du dossier..