Enregistrer sous

Bonjour,

Je souhaite enregistrer sous une feuille faisant partie de mon classeur. J'aimerai que lors de la phase d'enregistrement, la boite de dialogue s'ouvre pour que l'utilisateur puisse choisir l'endroit de l'enregistrement.

Merci d'avance

Salut

'-------

Application.Dialogs(xlDialogSaveAs).Show

'///////////////////////////////////////////////////////////////////////////////

Sub iSave()

SheetName = ActiveSheet.Name

ActiveSheet.Copy

With ActiveWorkbook

Application.Dialogs(xlDialogSaveAs).Show (SheetName)

.Close

End With

End Sub