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.

 

[MichelXld]

bonjour

j'espere que ce lien pourra t'aider pour la partie Zip

http://www.rondebruin.nl/zip.htm


si tu utilises Windows XP , cette recente démo de Ron De Bruin te sera tres utile

http://www.rondebruin.nl/windowsxpzip.htm



bonne journée
MichelXld

Message édité par: michelxld, à: 23/12/2005 09:31

 

[WHOOKI]

Merci beaucoup pour ces 2 liens.
Je voudrais savoir où dois-je mettre la partie enregistrer sous un nom de cellule?
Merci par avance.

 

[MichelXld]

bonjour

désolé mais je ne comprends pas le sens de ton dernier message : peux tu donner plus de détails


bonne journée
MichelXld