Gerer un zip avec VBA

[ROUSSEAU Alain]

Bonjour à tous,

J'ai besoin dans des macros VBA de décompresser, ou de compresser des
fichiers Excel (2003 mais bientôt 2007).
L'idée est d'aller chercher sur un serveur un gros fichier compressé pour le
rapatrier en local, et après avoir travaillé dessus, de le renvoyer sur le
serveur après l'avoir compressé.
L'un ou l'une d'entre vous connaitrait-il une piste ?

Un grand merci d'avance

[ROUSSEAU Alain]

Bonjour

je complete mon demande précédente , ce n'est pas avec winzip que je veux
travailler, mais avec le sytème de compression intégré dans window...

Merci d'avance

Alain Rousseau

"ROUSSEAU Alain" <nospa...@wanadoo.fr> a écrit dans le message de news:
e2vJDMzq...@TK2MSFTNGP04.phx.gbl...

[Daniel]

Bonjour.
Tu n'as pas besoin de gérer la décompression / compression d'un fichier
compressé, c'est automatique.
A moins que j'aie mal compris ta question.
Cordialement.
Daniel

"ROUSSEAU Alain" <nospa...@wanadoo.fr> a écrit dans le message de news:
e2vJDMzq...@TK2MSFTNGP04.phx.gbl...

[ROUSSEAU Alain]

Merci Daniel te ton attention,

Bien sur la manip de compression est automatique avec window xp, il suffit
de déplacer le fichier dans un dossier compressé, ou de le "sortir" du
dossier, mais j'ai justement besoin de commander ce cette manip par un code
VB !!

Cordialement
Alain

"Daniel" <dZZZcol...@free.fr> a écrit dans le message de news:
OeXACp1q...@TK2MSFTNGP05.phx.gbl...

[Daniel]

Tu peux ouvrir directement le fichier compressé. Tu n'as pas besoin de le
déplacer. Si tu veux toutefois le déplacer, regarde la commande FileCopy

Daniel
"ROUSSEAU Alain" <nospa...@wanadoo.fr> a écrit dans le message de news:

uX8IJb2q...@TK2MSFTNGP05.phx.gbl...

[ROUSSEAU Alain]

Le problème Daniel, c'est que je ne sais pas comment ecrire le code (VBA)
permettant l'ouverture d'un fichier zippé.
encore merci de ton attention
Alain

"Daniel" <dZZZcol...@free.fr> a écrit dans le message de news:

O%235LCJ3q...@TK2MSFTNGP03.phx.gbl...

[Daniel]

On est bien d'accord qu'il s'agit d'un fichier compressé XP et non d'un
fichier zippé avec winzip :
Workbooks.Open "\\NomDePartage\Chemin\Fichier.xls"
pour le fermer en sauvegardant les modifs :
ActiveWorkbook.Close True

Daniel
"ROUSSEAU Alain" <nospa...@wanadoo.fr> a écrit dans le message de news:

O7Peae3q...@TK2MSFTNGP04.phx.gbl...

[ROUSSEAU Alain]

 

Non ça marche pas ! ou alors il faut vraiment que je me repose

 

Pour y voir clair de manière simple

un fichier dénommé "TOTO.xls" est compressé dans un dossier zip intitulé "TARTEMPION.ZIP"      Ok ?

chemin = le chemin d'acces à "tartempion"

 

Workbooks.Open "\\NomDePartage\Chemin\toto.xls" ne donne rien  ------->>message:  fichier introuvable

 

si j'essaye d'ouvrir directement le zip (sans y croire d'ailleurs!!) 

 

Workbooks.Open "\\NomDePartage\Chemin\tartempion.zip" ------->> message :impossible de reconnaitre le format de fichier

 

merci de ta patience

Alain

 

"Daniel" <dZZZcol...@free.fr> a écrit dans le message de news: uyzRdE4q...@TK2MSFTNGP06.phx.gbl...

[Daniel]

Tu utilises un dossier archives WINZIP, contrairement à ce que tu affirmes
dans ton post de 11:16, pas un dossier compressé XP. Regarde le site (en
anglais) de Ron de Bruin :
http://www.rondebruin.nl/unzip.htm#zip
Je ne l'ai jamais utilisé personnellement en ce qui concerne WinZip, mais
Ron est quelqu'un de très compétent.
Daniel

[Modeste]

Bonsour® ROUSSEAU Alain avec ferveur ;o))) vous nous disiez :

>> je complete mon demande précédente , ce n'est pas avec winzip que je veux
> travailler, mais avec le sytème de compression intégré dans window...

En effet les commandes de compressions natives Windows sont inclues dans
Shell32.dll
:-(( mais je ne retrouve plus l'exemple d'implémentation VBA.....
Il est fort possible en faisant une recherche sur les News Excel US d'en
retrouver trace
peut être en regardant là :
http://www.rondebruin.nl/windowsxpzip.htm
--
--
@+
;o)))

[ROUSSEAU Alain]

Daniel,

 

Merci pour l'adresse Rondebruin, je pense trouver ce que je cherche sur ce site .

 

Cependant une chose m'intrigue dans tes réponses, et me fait me demander si j'ai pas loupé une épisode.

je te confirme que je travaille sur pc sans winzip, et que je ne connais pas d'autre moyen de compresser un fichier excel que de le faire glisser dans un dossier compresse, et ce dossier comporte un suffixe ".zip" à partir de là ainsi que je te le  disais dans mes derniers messages, je ne vois pas comment utiliser ton code......

 

Encore merci

Alain

 

 

 

 

 

 

"Daniel" <dZZZcol...@free.fr> a écrit dans le message de news: e$202i5qH...@TK2MSFTNGP06.phx.gbl...

[Corto]

Bonjour ROUSSEAU Alain,
est ce que tu as essayé
Workbooks.Open " \\NomDePartage\Chemin\tartempion.zip\toto.xls
en effet Windows gère les fichiers zip comme s'il s'agissait de dossiers.

Corto

ROUSSEAU Alain a écrit :
>
>
> *Non ça marche pas ! ou alors il faut vraiment que je me repose*

>
> Pour y voir clair de manière simple
> un fichier dénommé "TOTO.xls" est compressé dans un dossier zip intitulé
> "TARTEMPION.ZIP" Ok ?
> chemin = le chemin d'acces à "tartempion"
>
> Workbooks.Open " \\NomDePartage\Chemin\toto.xls

> <file://\\NomDePartage\Chemin\toto.xls> " ne donne rien

> ------->>message: fichier introuvable
>
> si j'essaye d'ouvrir directement le zip (sans y croire d'ailleurs!!)
>
> Workbooks.Open " \\NomDePartage\Chemin\tartempion.zip

> <file://\\NomDePartage\Chemin\tartempion.zip> " ------->> message

> :impossible de reconnaitre le format de fichier
>
> merci de ta patience
> Alain
>

> "Daniel" < dZZZcol...@free.fr <mailto:dZZZcol...@free.fr> > a

> écrit dans le message de news: uyzRdE4q...@TK2MSFTNGP06.phx.gbl

> <mailto:uyzRdE4q...@TK2MSFTNGP06.phx.gbl> ...

> > On est bien d'accord qu'il s'agit d'un fichier compressé XP et non d'un
> > fichier zippé avec winzip :
> > Workbooks.Open " \\NomDePartage\Chemin\Fichier.xls

> <file://\\NomDePartage\Chemin\Fichier.xls> "

> > pour le fermer en sauvegardant les modifs :
> > ActiveWorkbook.Close True
> > Daniel
> > "ROUSSEAU Alain" < nospa...@wanadoo.fr

> <mailto:nospa...@wanadoo.fr> > a écrit dans le message de news:
> > O7Peae3q...@TK2MSFTNGP04.phx.gbl
> <mailto:O7Peae3q...@TK2MSFTNGP04.phx.gbl> ...

> >> Le problème Daniel, c'est que je ne sais pas comment ecrire le code
> (VBA)
> >> permettant l'ouverture d'un fichier zippé.
> >> encore merci de ton attention
> >> Alain
> >>
> >>

> >> "Daniel" < dZZZcol...@free.fr <mailto:dZZZcol...@free.fr> >

> a écrit dans le message de news:

> >> O%235LCJ3q...@TK2MSFTNGP03.phx.gbl
> <mailto:O%235LCJ3q...@TK2MSFTNGP03.phx.gbl> ...

> >>> Tu peux ouvrir directement le fichier compressé. Tu n'as pas besoin
> de le
> >>> déplacer. Si tu veux toutefois le déplacer, regarde la commande
> FileCopy
> >>> Daniel
> >>> "ROUSSEAU Alain" < nospa...@wanadoo.fr

> <mailto:nospa...@wanadoo.fr> > a écrit dans le message de
> >>> news: uX8IJb2q...@TK2MSFTNGP05.phx.gbl
> <mailto:uX8IJb2q...@TK2MSFTNGP05.phx.gbl> ...

> >>>> Merci Daniel te ton attention,
> >>>>
> >>>> Bien sur la manip de compression est automatique avec window xp, il
> >>>> suffit de déplacer le fichier dans un dossier compressé, ou de le
> >>>> "sortir" du dossier, mais j'ai justement besoin de commander ce cette
> >>>> manip par un code VB !!
> >>>>
> >>>> Cordialement
> >>>> Alain
> >>>>
> >>>>
> >>>>

> >>>> "Daniel" < dZZZcol...@free.fr <mailto:dZZZcol...@free.fr>

> > a écrit dans le message de news:

> >>>> OeXACp1q...@TK2MSFTNGP05.phx.gbl
> <mailto:OeXACp1q...@TK2MSFTNGP05.phx.gbl> ...

> >>>>> Bonjour.
> >>>>> Tu n'as pas besoin de gérer la décompression / compression d'un
> fichier
> >>>>> compressé, c'est automatique.
> >>>>> A moins que j'aie mal compris ta question.
> >>>>> Cordialement.
> >>>>> Daniel
> >>>>> "ROUSSEAU Alain" < nospa...@wanadoo.fr

> <mailto:nospa...@wanadoo.fr> > a écrit dans le message de
> >>>>> news: e2vJDMzq...@TK2MSFTNGP04.phx.gbl
> <mailto:e2vJDMzq...@TK2MSFTNGP04.phx.gbl> ...

[ROUSSEAU Alain]

Bonjour Corto,

je viens d'essayer ta methode mais ....il aime pas du tout ! (fichier
introuvable)

comme je le disais à Daniel ,
le site
http://www.rondebruin.nl/unzip.htm#zip
semble contenir des choses intéressantes que je vais tester dès que j'ai un
moment, mais boudiou! que ce truc m'a cassé les pieds

merci de ton aide
Alain Rousseau

"Corto" <fcdi...@hotmail.com> a écrit dans le message de news:
OZbF$sCrHH...@TK2MSFTNGP03.phx.gbl...

> Bonjour ROUSSEAU Alain,
> est ce que tu as essayé
> Workbooks.Open " \\NomDePartage\Chemin\tartempion.zip\toto.xls
> en effet Windows gère les fichiers zip comme s'il s'agissait de dossiers.
>
> Corto
>
> ROUSSEAU Alain a écrit :
>>
>> *Non ça marche pas ! ou alors il faut vraiment que je me repose*
>> Pour y voir clair de manière simple
>> un fichier dénommé "TOTO.xls" est compressé dans un dossier zip intitulé
>> "TARTEMPION.ZIP" Ok ?
>> chemin = le chemin d'acces à "tartempion"
>> Workbooks.Open " \\NomDePartage\Chemin\toto.xls
>> <file://\\NomDePartage\Chemin\toto.xls> " ne donne