Récuperer l'état de WINZIP depuis VBA EXCEL

Version imprimable

21/02/2011, 13h35
oksana13

Récuperer l'état de WINZIP depuis VBA EXCEL

Bonjour,

j'ai une petite macro qui prépare un mail sous Lotus sans l'envoyer avec le fichier xls acif en pièce joint, et en cas de dépassement d'un limite de 2Mo ce fichier est "zipé" d'abord. Le souci, c'est que ci l'archivage est long, la macro continu son execution avant la fin d'archivage et ça provoque une erreur d'execution:cry:

Question: common on peux arreter l'ececution d'une macro le temp que WINZIP tourne?

Pour l'instant je suspend l'execution pour 10 sec. mais c'est plus une solution de secours...
Je voudrais bien pouvoir récuperer l'état de WINZIP pour continuer l'execution de macro.
21/02/2011, 13h40
Qwazerty

Salut
Comment est provoqué le zippage?, automatiquement par Lotus ou c'est toi qui exécute WinZip ?

++
Qwaz
21/02/2011, 14h02
Godzestla

Salut,

si comme je le comprend, c'est toi qui génère le zip par ta macro, tu devrais pouvoir t'inspirer du code proposé par Fred65200 ici
21/02/2011, 14h04
kiki29

Salut,une alternative à l'utilisation de WinZip http://excel.developpez.com/sources/...#ZipperFichier

Bonjour,

Essai ce qui suit, je n'ai plus WinZip pour tester :

Code:

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
 
Declare Function GetTickCount Lib "Kernel32" () As Long
 
Sub Minuterie(Milliseconde As Long)
 
    Dim Arret As Long
 
    Arret = GetTickCount() + Milliseconde
 
    Do While GetTickCount() < Arret
        DoEvents
    Loop
 
End Sub
 
Sub ZipperUnFichier()
 
    Dim CheminZippeur As String
    Dim Zippeur As String
    Dim Fichier As String
    Dim ArchiveZip As String
 
    'chemin de WinZip, à adapter après recherche sur le DD
    CheminZippeur = "C:\Program Files\WinZip\"
 
    Zippeur = "Winzip32.exe -a"
 
    'les Chr(34) évitent l'erreur dûe à la présence d'espace dans
    'les noms des fichiers à compresser et compressés
    'adapter les noms des fichiers
    ArchiveZip = Chr(34) & "D:\Mon fichier comprimer.zip" & Chr(34)
 
    Fichier = Chr(34) & "D:\Mon Classeur à comprimer.xls" & Chr(34)
 
    Shell (CheminZippeur & _
           Zippeur & " " & _
           ArchiveZip & " " & _
           Fichier)
 
    '5 secondes d'attente
    Minuterie 5000
 
    'suite de ton code...
 
End Sub

Hervé.

21/02/2011, 17h14
oksana13

Citation:

Envoyé par Godzestla

Salut,

si comme je le comprend, c'est toi qui génère le zip par ta macro, tu devrais pouvoir t'inspirer du code proposé par Fred65200 ici

merci, je vais essayer, je pense c'est ça que je cherche :P