ACCESS VBA ZIP UNZIP

Signaler
Messages postés
15
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
5 février 2008
-
Messages postés
3
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
2 mars 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/43476-access-vba-zip-unzip

Messages postés
3
Date d'inscription
mardi 2 mars 2010
Statut
Membre
Dernière intervention
2 mars 2010

Bonjour,

Pour VBA Excel 2007, ce code fonctionne très bien pour autant que l'on rajoute :
- la reference "Microsoft Shell Controls and automation"
- et modifier 3 lignes :
Dim oShell As Shell 'important car Object ne fonctionne pas...
# Set oShell = CreateObject("Shell.Application")
# oShell.Namespace(sZIPFileName).copyHere sFileName
Donc plus besoin de "oZip"

Source : http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/0263175a-351d-443e-813a-3205d6a9a42d

Bon courage à tous
Messages postés
168
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2009
1
Messages postés
5
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
19 juillet 2013

sérieux, quelqu'un a testé ce truc ?

merci de ne poster que des sources qui fonctionnent...
Messages postés
168
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2009
1
Afficher les 6 commentaires