Enregistrement en zip sous nom de cellule

[Whooki]

Bonjour à tous et merci pour votre site.

Je suis débutant dans le maniement des macros sur Excel, et je reste bloqué sur un petit souci.
J’utilise actuellement cette macro :

Public Sub action()
Imprarticle
ImprDEVIS
CALCUL
envoyer
End Sub

Public Sub Imprarticle()
Sheets('Creation article').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('DEVIS').Select
End Sub
Public Sub ImprDEVIS()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Public Sub CALCUL()
Dim Chr As String 'déclare la variable
Chr = Range('DEVIS!K7') 'FEUILLE DEVIS CELLULE K7
ChDrive 'C' 'si C n'est pas le disque par défaut
ChDir 'C:\\DEVIS\\'
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub
Public Sub envoyer()
ActiveWorkbook.SendMail Recipients:=Array(''), Subject:='Message de Chris '
End Sub

Je souhaiterais ajouter à cette macro, une action zip, qui compresserait automatiquement le fichier enregistrer d’après ma cellule, après compression supprimer le fichier .xls pour ne garder que mon classeur zippé dans mon dossier « devis »,l’envoyer par mail, enfin garder ouvert mon classeur d’ouverture.
Je sais que je demande un peut la Lune, mais je suis sur le problème depuis plusieurs jours c’est pourquoi je me tourne vers les experts…
Merci par avance de vos éclaircissements.

 

[Massimo]

Salut,
je ne sais pas si j'ai tout compris mais voici quelques indices pour compresser un fichier. J'utilise Winrar donc:

Shell 'C:\\Program Files\\WinRAR\\winrar.exe m Chemin\\MonNomArchive', 1

' m Déplacer des fichiers et des dossiers vers une archive
' a Ajouter des fichiers et des dossiers vers une archive

Winzip doit aussi fonctionner en ligne de commande. A toi de regarder dans l'aide quel argument utiliser...

Si ton fichier à compresser est le fichier ouvert dans Excel il ne pourra pas le déplacer car il est locké donc il te faudra obligatoirement le fermer.