OVH Cloud OVH Cloud

Access et WINZIP

4 réponses
Avatar
Dominique MARTIN
Bonjour,

Dans ma base ACCESS XP, 2 fichiers Word sont créés et enregistrés dans un
répertoire.
je souhaite que Access crée une archive ZIP et y mettre ces 2 fichiers Word.

Quelqu'un pourrait-il me donner des pistes soit code VBA soit script à
inclure dans un fichier .bat ou autres ?

Merci pour votre aide
Dominique

4 réponses

Avatar
bjf
Salut Dominique.
Voici un exemple pour Zipper un fichier

theFile = """C:Mes DocumentsNom du fichier a zipper.txt"""
theDescr = "C:Program Fileswinzipwinzip32.exe -a " & """Nom du Fichier
Zip"""
var = Shell(theDescr & theFile)

var récupère une erreur éventuelle

A+
BJF



Bonjour,

Dans ma base ACCESS XP, 2 fichiers Word sont créés et enregistrés dans un
répertoire.
je souhaite que Access crée une archive ZIP et y mettre ces 2 fichiers Word.

Quelqu'un pourrait-il me donner des pistes soit code VBA soit script à
inclure dans un fichier .bat ou autres ?

Merci pour votre aide
Dominique


Avatar
Dominique MARTIN
bonjour,

Merci pour ta réponse.
Sais-tu comment faire avec les commandes windows xp ou dos sans passer par
winzip ?
Merci pour ton aise

Dominique

Salut Dominique.
Voici un exemple pour Zipper un fichier

theFile = """C:Mes DocumentsNom du fichier a zipper.txt"""
theDescr = "C:Program Fileswinzipwinzip32.exe -a " & """Nom du Fichier
Zip"""
var = Shell(theDescr & theFile)

var récupère une erreur éventuelle

A+
BJF



Bonjour,

Dans ma base ACCESS XP, 2 fichiers Word sont créés et enregistrés dans un
répertoire.
je souhaite que Access crée une archive ZIP et y mettre ces 2 fichiers Word.

Quelqu'un pourrait-il me donner des pistes soit code VBA soit script à
inclure dans un fichier .bat ou autres ?

Merci pour votre aide
Dominique




Avatar
Bonjour

à l'aide d'une dll peut-être ?

http://www.winimage.com/zLibDll/
ou
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743
ou
http://www.vbaccelerator.com/home/VB/Code/Libraries/Compression/Introduction_to_the_Info-ZIP_Libraries/article.asp

--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------

"Dominique MARTIN" a écrit dans le message de news:

bonjour,

Merci pour ta réponse.
Sais-tu comment faire avec les commandes windows xp ou dos sans passer par
winzip ?
Merci pour ton aise

Dominique

Salut Dominique.
Voici un exemple pour Zipper un fichier

theFile = """C:Mes DocumentsNom du fichier a zipper.txt"""
theDescr = "C:Program Fileswinzipwinzip32.exe -a " & """Nom du Fichier
Zip"""
var = Shell(theDescr & theFile)

var récupère une erreur éventuelle

A+
BJF



Bonjour,

Dans ma base ACCESS XP, 2 fichiers Word sont créés et enregistrés dans un
répertoire.
je souhaite que Access crée une archive ZIP et y mettre ces 2 fichiers Word.

Quelqu'un pourrait-il me donner des pistes soit code VBA soit script à
inclure dans un fichier .bat ou autres ?

Merci pour votre aide
Dominique






Avatar
Dominique MARTIN
Bonjour,

Merci pour ton aide.
Je vais aller voir les sites

Dominique


Bonjour

à l'aide d'une dll peut-être ?

http://www.winimage.com/zLibDll/
ou
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743
ou
http://www.vbaccelerator.com/home/VB/Code/Libraries/Compression/Introduction_to_the_Info-ZIP_Libraries/article.asp

--
A+
Arnaud
----------------------------------------
-------> http://www.mpfa.info <-------
----------------------------------------

"Dominique MARTIN" a écrit dans le message de news:

bonjour,

Merci pour ta réponse.
Sais-tu comment faire avec les commandes windows xp ou dos sans passer par
winzip ?
Merci pour ton aise

Dominique

Salut Dominique.
Voici un exemple pour Zipper un fichier

theFile = """C:Mes DocumentsNom du fichier a zipper.txt"""
theDescr = "C:Program Fileswinzipwinzip32.exe -a " & """Nom du Fichier
Zip"""
var = Shell(theDescr & theFile)

var récupère une erreur éventuelle

A+
BJF



Bonjour,

Dans ma base ACCESS XP, 2 fichiers Word sont créés et enregistrés dans un
répertoire.
je souhaite que Access crée une archive ZIP et y mettre ces 2 fichiers Word.

Quelqu'un pourrait-il me donner des pistes soit code VBA soit script à
inclure dans un fichier .bat ou autres ?

Merci pour votre aide
Dominique