Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel zip

zip

1 réponse
Avatar
Bernard SALIEN
bonjour,

peut on avec une macro compresser un fichier xls à la fermeture du classeur?

Quelqu'un connait la méthode?

Merci de me répondre
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Symon
certe ceci devrait t'aider
c'est un exemple a adapter

ActiveWorkbook.Save
Kill
"G:Poli_doc_newUff_cogeUFF_COGEDailySalesEnvoisDaily_Sales_GV_Italy_20
03.xls"
ActiveWorkbook.SaveCopyAs
"G:Poli_doc_newUff_cogeUFF_COGEDailySalesEnvoisDaily_Sales_GV_Italy_20
03.xls"
ActiveWorkbook.Close

'Répertoire ou est installé WinZip
Const CheminWinZip = "C:Program FilesWinZip"
'Nom du fichier Zip a créér
Const NomArchive "G:Poli_doc_newUff_cogeUFF_COGEDailySalesEnvoisDaily_Sales_GV_Italy_20
03.zip"
'Nom du dossier à compresser
Const QuelFichier "G:Poli_doc_newUff_cogeUFF_COGEDailySalesEnvoisDaily_Sales_GV_Italy_20
03.xls"

'execution
Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " " & QuelFichier)

'laisse le temps à Winzip de compresser
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
application.Wait waitTime






"Bernard SALIEN" wrote in message
news:#
bonjour,

peut on avec une macro compresser un fichier xls à la fermeture du
classeur?


Quelqu'un connait la méthode?

Merci de me répondre