Dim NewFilename As String
NewFilename = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Fichiers Excel (*.xls),*.xls")
Feuil2.Activate
ActiveWorkbook.SaveAs NewFilename
En suivant ce procédé, comment définir le nouveau fichier en lecture seule ?
''***************************************************************************
...à votre service
Thanks & Peace
Tonio