Discussion :

[Australia]

Bonjour tout le monde,

pinaise ca faisait longtemps que j'avais pas posé une question sur ce forum ...

Alors voila mon problème, je lance winzip depuis ma macro Excel via ligne de commande, ca marche niquel par contre winzip se lance en parallèle à Excel et comme mon action suivante consiste à déplacer mon zip ben ca marche pas super ...
j'suis obligé de faire un sleep 10000 pour attendre que WInzip ait fini,
or je fais une boucle sur cette action ce qui a pour conséquence de perdre 10 secondes par zip, bref pas terrible

type du code :

Code :

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

1
2
3
4
5
6
7
strCreationZip = "C:\Program File\Winzip\WInzip32.exe -a mondocument.zip monDocument.doc"
 
shell strCreationZip
 
sleep 10000
 
objFSO.MoveFile(monDocument.zip)

je voudrais pouvoir récupérer (mais je sais pas si possible) une info de winzip qui me dit, ca y est, ton zip est terminé
afin que je puisse ensuite manipuler le fichier


Merci d'avance

[ESVBA]

tu ne peux pas spécifier directement le chemin de création du fichier, un truc du genre :

Code :

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

strCreationZip = "C:\Program File\Winzip\WInzip32.exe -a \dossierarchive\mondocument.zip monDocument.doc"

Une boucle sur les fenêtres encore ouvertes jusqu'à disparition de la fenêtre WinZip avec une fonction API type "FindWindowsA". A tester.

ESVBA

[Australia]

Le truc c'est qu'il y a 2 cas possibles, soit le zip existe déja et je lui ajoute un fichier, soit je le crée et en fait c'est la même ligne de commande ....

[ESVBA]

je ne connais pas les codes "ligne de commande" de WinZip. Il y en a pas deux paramètres différents : pour ajouter un fichier à un ZIP existant et pour Effacer/Recréer un fichier zip existant ?

Je ne comprend pas bien le dernier post..

Test si le fichier ZIP existe en sachant son nom et emplacement : faire un truc du genre :

Code :

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

1
2
3
If Dir("C:\dos\monfic.zip") <> "" Then
   'Code ... car le fichier existe déjà
End If

ESVBA

[Australia]

le problème vient pas des lignes de commande, ca marche très bien (et pour info, je pense pas dire une grosse c... en disant que c'est la même commande pour ajouter un fichier à un zip ou pour créeer un zip),

le truc c'est comment trouver une astuce / commande pour savoir si mon zip est terminer ou non ...
afin de déplacer le fichier zip ...

[ESVBA]

afin que je puisse ensuite manipuler le fichier

C'était pour moi copier le zip dans un dossier archive. Donc ma solution était de le copier directement dans le dossier archive.




Il faudra d'une façon ou d'une autre faire une boucle.

La solution proposée plus haut :

Une boucle sur les fenêtres encore ouvertes jusqu'à disparition de la fenêtre WinZip avec une fonction API type "FindWindowsA". A tester

Donc boucler jusqu'à la disparition du processus (handle) de la création de l'archive.
Processus terminé, archive terminée.
D'où l'utilisation d'une API Windows.


Va voir dans la section langage Visual Basic fu forum ou
dans la FAQ office comme par exemple http://excel.developpez.com/faq/inde...isteFenetresIE le second code


ESVBA

[Minick]

Salut,

Un petit exemple avec les API

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
Option Explicit
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
 
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
 
Sub ShellWait(ShellCommand As String)
    Dim hProcess As Long, RetVal As Long
 
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(ShellCommand, vbMinimizedNoFocus))
 
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
    Loop While RetVal = STILL_ACTIVE
End Sub
 
Sub Test()
    Call ShellWait("notepad.exe")
End Sub