winzip depuis excel

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 :pleure:

type du code :

Code:

---

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

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

Code:

---

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

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

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:

---

1 2 3

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

---

ESVBA

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

Citation:

---

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 :

Citation:

---

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

Salut,

Un petit exemple avec les API

Code:

---

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

---