Enregistrer un classeur

Bonjour à tous & à toutes (Elles sont jolies les signatures actuelles)
Bonjour JM

//Sauvegarde.

Application.DisplayAlerts = False 'pour ne pas avoir les messages d'alerte
Pour n'enregister qu'une feuille du classeur
ThisWorkbook.Sheets("Feuil1").Copy ' copie de la feuille1 dans un nouveau classeur
ActiveWorkbook.SaveCopyAs "c:\ar\sav_ar.xls" ' enregistrement copie dans repertoire
ActiveWorkbook.Close 'fermeture du classeur sauvegard‚
ActiveWorkbook.Close
Application.DisplayAlerts = True A remettre

@ ++ Eric C

Merci Eric,
est-on obligé de passer par une copie ? ne peux t'on pas réaliser par cette macro l'équivalent de "enregistrer sous..." ?
Merci d'avance
(c'est vrai que les signatures sont chouettes)

Bonsoir à tous & à toutes
Re JM

Non, en lieu & place de SaveCopyAs tu mets SaveAs.



@ ++ Eric C

Merci, c'est vraiment sympa, tu m'as bien fait avancer
A+ sur le forum