Re
Ce n'est pas assez précis pour vous
Si si mais je ne suis pas toujours sur le forum...
Code à essayer :
Sub Savesheet()
'Macro Dan pour Abdernino - 14/06/18
'
Dim Chemin As String
Chemin = "C:\Users\" & VBA.Environ("UserName") & "\Desktop\"
With ActiveSheet
.Copy
.Name = Replace(.Name, ".", "")
ActiveWorkbook.SaveAs Chemin & .Name & ".xls"
End With
End Sub
L'instruction Replace ne sert qu'à supprimer les points que vous avez mis dans le nom de l'onglet. Ce qui serait mieux c'est de les supprimer. Il est mieux d'éviter l'utilisation de points ou espaces dans les nom de feuille et de fichier.
Le Code sauve la feuille dans un nouveau fichier qui sera placé sur le bureau. Le code est à placer dans un module et à associer éventuellement à un bouton placé sur la feuille à sauvegarder.
Si ok, veille à cloturer le fil
Cordialement