Macro SaveCopyAs avec options...

Bonjour,
J'utilise une macro pour créer une copie du classeur :

Sub CommandButton1_Click() 'Sauvegarde de la visite
Dim nom As String
    nom = "CR Visite " & "[" & Range("C3") & "] " & "[" & Format(Date, "dd-mm-yyyy") & "]" & ".xls"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\Compte-rendus visites\" & nom
    rep = MsgBox("Le compte-rendu est maintenant sauvegardé dans le dossier 'Compte-rendus visites' sous le nom : " & nom, vbYes + vbInformation, "Sauvegarde de la visite")
End Sub

Elle fonctionne bien mais :

1) le classeur source étant un .xlsm, la sauvegarde en .xls ne s'ouvre qu'avec un message d'alerte "Format différent de celui spécifié par l'extension... Voulez-vous continuer". Comment éviter ce message ? Dois-je utiliser une fonction "exporter" ?

2) si je tiens au .xls, c'est aussi parce que j'aimerai que ma sauvegarde soit dépourvue des boutons et macros du classeur d'origine. Comment faire en sorte que ma copie soit vierge des macros sources ?

3) Enfin j'aimerai ajouter une condition, pour que le fichier de sauvegarde ne soit créé que si la cellule C3 est renseignée, valeur qui rentre dans le nom du fichier sauvegarde (cf. macro plus haut). Est-ce possible ?


Merci à tous de votre aide car j'ai beau cherché sur le net, je galère...


infqm.

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.