2 petites questions en VBA

hello !
Dans mon programme, je fais ouvrir une fenêtre d'ouverture de fichier pour que l'utilisateur puisse choisir un fichier à ouvrir :
nomfich = Application.GetOpenFilename(FileFilter:="(*.xls),*.xls", Title:="Sélectionnez le fichier")

Je souhaite lui faire ouvrir un fichier .xls zipé or quand je mets la ligne ci-dessus il peut ouvrir un fichier .xls mais pas zipé. une idée ??

Autre petite question : lorsque ma macro se termine j'enregistre le fichier de la manière suivante :
ActiveWorkbook.SaveAs Filename:=chemin & nom & " " & strDate & ".xls", FileFormat:=xlNormal, _ReadOnlyRecommended:=False

Mais je souhaiterais également créer un fichier .zip dans lequel je metterais le fichier .xls créé ci-dessus mais je ne sais pas comment faire.

j'espère que l'explication de mon problème est claire et qu'au moins 1 personne pourra m'être utile.
Merci de m'aider.
A+