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
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