enregistrement du classeur en .zip

[kinel]

Re bjr

encore un petit problème :
ce code me permet d'enregistrer automatiquement mon classeur à la sortie
il sauvegarde le classeur dans le dossier mes documents
jusque là tout va bien

je voudrais maintenant qu'il me fasse aussi une sauvegarde en .zip
est ce possible ?

Merci de vos réponses
Kinel



Sub CommandButton2_Click()
ActiveWorkbook.Worksheets("Interface").Activate
Application.Quit '-> Fermeture d'Excel
Application.DisplayAlerts = False 'dire oui à l'écrasement
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Name 'enregistrement automatique à la sortie
Application.DisplayAlerts = True

 

[tototiti2008]

Re : enregistrement du classeur en .zip

Bonjour kinel,

une page qui peut être intéressante :

Ron's Excel Tips

dans la page, fait un Rechercher "zip" et tu devrais trouver ton bonheur 🙂

 

[kinel]

Re : enregistrement du classeur en .zip

bonsoir tototiti2008

merci pour le lien j'y ai trouvé mon bonheur (à adapter comme toujours mais ça fonctionne)

j'arrive à sauvegarder "mon classeur" au format "mon classeur date heure.zip"
je l'envoie ensuite par mail

très complets ces codes

merci encore

Kinel