Discussion :

[oksana13]

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

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.

[Qwazerty]

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

++
Qwaz

[kiki29]

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

[Theze]

Bonjour,

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

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
 
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é.

[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

[oksana13]

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