Dim extension As String, chemin As String, nomfichier As String
extension = ".xls"
chemin = "\\Frmac01fs01\groupes de travail\ST Tolerie\Logistique\tolerie connexion\fiche conditionnement\"
''''Cette partie permet de changer les "/" en "-"
nom = ActiveSheet.Range("E8").Value
nom = Replace(nom, "/", "-")
'''''''''''''''''
nomfichier = nom & extension
Sheets("gamme").Select
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier