Application.GetSaveAsFilename(fileFilter:="Fichier Excel (*.xls), *.xls")CODE]par exemple. Mais je ne pense pas que tu puisses modifier le nom de fichier.
Pour les liens, tu peux essayer de supprimer les connexions[CODE]For I = 1 To ActiveWorkbook.Connections.Count
ActiveWorkbook.Connections(I).Delete
Next I