Bonjour,
Essaie ce code
Sub test()
'Macro Dan
Dim chemin As String, Fichier As String
chemin = "C:\dossier1\"
Fichier = Range("F6") & "_" & Range("F7") & "_" & Range("F8") & ".xls"
ActiveWorkbook.SaveAs Filename:=chemin & Fichier
End Sub
C:\dossier1 : correspond au dossier dans lequel tu veux enregistrer le fichier
Fichier : correspond au nom donné en fonction de tes cellules. Evite les cellules fusionnées !! cela pose toujours des soucis.
Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil
Amicalement