MACRO ET WINZIP
Fermé
Alban69300
-
23 juin 2010 à 08:49
GégéLAMBERT Messages postés 615 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 24 octobre 2014 - 23 juin 2010 à 10:04
GégéLAMBERT Messages postés 615 Date d'inscription lundi 21 juin 2010 Statut Membre Dernière intervention 24 octobre 2014 - 23 juin 2010 à 10:04
A voir également:
- MACRO ET WINZIP
- Winzip - Télécharger - Compression & Décompression
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
2 réponses
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)
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)
GégéLAMBERT
Messages postés
615
Date d'inscription
lundi 21 juin 2010
Statut
Membre
Dernière intervention
24 octobre 2014
10
23 juin 2010 à 10:04
23 juin 2010 à 10:04
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é
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é
