MACRO ET WINZIP
Bonjour à tous !
Voilà j'ai un petit problème de macro sous excel 2000 (oui je sais mais ma boite veux pas faire mieux !)....
Voilà j'ai par exemple :
En A1 - Lien vers un fichier A
En A2 - Lien vers un fichier B
J'ai mis en place une macro qui copie l'ensemble des ces fichiers dans un dossier.
Je souhaiterais maintenant qu'une macro (type bouton ! Faut pas que ce soit trop compliqué pour les autres !) me mette tous ce dossier dans un ZIP.....
Je viens de passer la nuit dessus et là je sens que je vais encore y passer un bon moment !
Alors à votre bon coeur !
MERCI !!!!
Voilà j'ai un petit problème de macro sous excel 2000 (oui je sais mais ma boite veux pas faire mieux !)....
Voilà j'ai par exemple :
En A1 - Lien vers un fichier A
En A2 - Lien vers un fichier B
J'ai mis en place une macro qui copie l'ensemble des ces fichiers dans un dossier.
Je souhaiterais maintenant qu'une macro (type bouton ! Faut pas que ce soit trop compliqué pour les autres !) me mette tous ce dossier dans un ZIP.....
Je viens de passer la nuit dessus et là je sens que je vais encore y passer un bon moment !
Alors à votre bon coeur !
MERCI !!!!
2 réponses
-
Bonjour,
Le problème vient des dossier TEST ZIP et EXPORTS TRANSCOM qui contiennent un espace. Remplace-le par _ et ça devrait rouler.
Sinon, en général, je te conseille dans les lignes de commande que tu veux exécuter avec Shell de placer des guillements encadrant les chemins, afin d'éviter une rupture de chaîne si tu as des espaces...
Gégé -
A toute fins utiles je vous joint mon code VBA actuel mais qui ne fonctionne pas :
Sub COMPRESS()
Const CheminWinZip = "C:\Program Files\WinZip\" 'Répertoire ou est installé Winzip
Const NomArchive = "K:\02-Producteurs\PHOTOVOLTAÏQUE\0_TRANSCOM\TEST ZIP\test.zip" 'Nom du fichier Zip a créer
Const QuelDossierAvecSousDossier = "K:\02-Producteurs\PHOTOVOLTAÏQUE\0_TRANSCOM\EXPORTS TRANSCOM" 'Nom du dossier qui contient des sous-dossiers à compresser
Shell (CheminWinZip & "winzip32.exe -a -r " & NomArchive & " " & QuelDossierAvecSousDossier) 'execution
End Sub
J'obtiens le message d'erreur suivant :
Action: Ajouter (et Remplacer) Fichiers Récursivité: oui Sauver Chemin Complet: non
Inclure fichiers Système et Cachés: oui
Avertissement: nom non correspondant: ZIP/test.zip
Avertissement: nom non correspondant: K:/02-Producteurs/PHOTOVOLTAÏQUE/0_TRANSCOM/EXPORTS
Avertissement: nom non correspondant: TRANSCOM
Erreur: Aucun fichier ne correspond à vos critères pour cette action - rien à faire. (K:\02-Producteurs\PHOTOVOLTAÏQUE\0_TRANSCOM\TEST.zip)
