Discussion :

[Ptikir]

Bonjour à tous,

J'ai créé une macro qui fait les opérations suivantes :
- Création d'un fichier Excel à partir d'un fichier texte
- Copie d'un fichier d'archive Zip d'un lecteur reseau vers le disque D:
- Ajout du fichier Excel dans le fichier Zip
- Copie du fichier Zip sur le lecteur Reseau
- Suppression du fichier excel et du fichier texte

La macro me signale une erreur lorsque je veux ajouter le fichier excel dans l'archive.

Si je mets des points d'arrêts dans l'execution je ne rencontre pas de problème...

En fait l'erreur est provoqué car au moment de zipper le fichier excel celui a déjà été supprimé par la maccro... Car le lancement du zip est trop lent...

Donc je voulais savoir comment ajouter une pause dans l'éxécution de ma macro en évitant d'utiliser la méthode Application.wat (now + "00:00:10")

Voici le code impacté...

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
 
Dim zippeur As String
Dim fichierAZipper As String
Dim archiveZip As String
Dim copyArchiveZip As String
 
zippeur = METHODE_ZIPPEUR
fichierAZipper = VG_Path_TotoTxt & "\" & Format(DateTraitementPourSaveFichier, "yyyymmdd") & _
                                        "_Toto.xls"
archiveZip = VG_Path_IndicGusoTxt & "\" & "GUSO " & Format(DateTraitementPourSaveFichier, "yyyy") & _
                                        " " & Format(DateTraitementPourSaveFichier, "mm") & _
                                        " " & Format(DateTraitementPourSaveFichier, "mmmm") & _
                                        " (xls).zip"
 
copyArchiveZip = RACINE_D & "\" & "GUSO " & Format(DateTraitementPourSaveFichier, "yyyy") & _
                                        " " & Format(DateTraitementPourSaveFichier, "mm") & _
                                        " " & Format(DateTraitementPourSaveFichier, "mmmm") & _
                                        " (xls).zip"
 
FileCopy archiveZip, copyArchiveZip
DoEvents
 
Shell (zippeur & Chr(34) & copyArchiveZip & Chr(34) & " " & Chr(34) & fichierAZipper & Chr(34))     ' ne rendra la main qu'une fois terminé
DoEvents
 
FileCopy copyArchiveZip, archiveZip
DoEvents
 
'   Suppression du fichier IndicGuso.txt et le fichier XLS
'   ======================================================
Kill (VG_Path_TotoTxt & "\" & VG_Nom_TotoTxt)
'   Ajouté par PKI
'=================
Kill (VG_Path_TotoTxt & "\" & Format(DateTraitementPourSaveFichier, "yyyymmdd") & _
        "_Toto.xls")
Kill (copyArchiveZip)

[Krovax]

Bonjour
J'allais dire
Essaye tout simplement d'insérer la commande

Code :

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

DoEvents

mais cela semble déja fait

SI un simple timer te suffit

Code :

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

1
2
3
4
5
6
7
Dim deb As Date
 
'ta boucle de tempo
deb = Time
Do
DoEvents
Loop Until Time > deb + "00:00:05"

Mais il doit y avoir un moyen d'éviter le timer fixe

[PMO2017]

Bonjour,

Peut-être en utilisant la fonction API Sleep

Exemple :

Code :

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

1
2
3
4
5
6
7
8
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub CinqSecondes()
MsgBox "Go pour 5 secondes"
Sleep 5000
MsgBox "Fini"
End Sub

Cordialement.

PMO
Patrick Morange

[Ptikir]

Merci à vous deux pour vos réponses !!!

J'ai utilisé la fonction sleep ça fonctionne très bien !