Option Explicit
Sub Exporte()
Dim Chemin As String, Synthese As String
'A adapter ================
Chemin ="\\Central1\Fiabilite\secteur1\Bdd\"
'Construction du nom du fichier sauvegardé ( l'on pourrait aussi rappatrier l'heure en utilisant Now() et en remplaçant également les : par des _)
Synthese = "Installation45_" & Replace(Date, "/", "_") & ".xlsx"
'===========================
'Copie de la feuille 1 , comme non précisé vers un classeur virtuel
Sheets("Feuil1").Copy
'Le classeur virtuel devient le classeur actif ,que l'on sauvegarde
ActiveWorkbook.SaveAs Chemin & Synthese
'Fermeture du classeur actif en inhibant la sauvegarde puisqu'elle vient d'être effectuée
activeworkbook.close false
End Sub