sauvegarde feuille

Bonjour Michel, le Forum,

j'utilise ceci pour copier une feuille et la sauver (SaveAS...) sous un nouveau WB avec un nom pré-proposé:

Private Sub SaveAs()
Dim f As Variant
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Sheet2").Copy
f = Application.GetSaveAsFilename(InitialFileName:="InsérezUnNomIci.xls", FileFilter:="Excel Workbook (*.xls),*.xls")
If f = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=f
ActiveWorkbook.Close
End Sub

bonsoir Bernard
je ne comprends pas trop ta macro;j'ai essaye de la coller partout mais ç'est inoperant.Peux-tu m'eclairer?
Bonne soirée

Michel

Bonsoir Michel

désolé, je rentre de l'étranger, je n'ai pas eu ton message avant ce soir

j'appelle cette macro depuis une BO personnelle, et elle fonctionne à merveille;
Elle copie la feuille définie, ouvre la boîte de dialogue SaveAs... dans le même répertoire que le fichier d'origine, propose le nom "InsérezUnNomIci.xls", et quand on clique Save, crée un nouveau WB contenant ladite feuille. J'utilise ça pour sauver un book sans ses macros, de manière à alléger un peu

toutefois en (re)lisant ton premier message, je réalise que tu es sous Excel 97, et que cette macro tourne sous Excel 2000, serait-ce là le problème?

Je n'ai jamais travaillé sous 97, je ne connais donc pas du tout, j'espère qu'une bonne âme pourra t'aider ici

Bon week-end
Bernard