Merci de votre réponse,
cela ne fonctionne pas, mais mon chemin d'accès fait référence à plusieurs cellules... cela pose surement problème.
Voici mon code :
Sub DPGFxls()
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("SPS").Range("H5") & "\" & Sheets("sps").Range("f5") & " " & "Classement offres AVN" & " - " & Sheets("SPS").Range("f3") & ActiveWorkbook.Name
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub
La ligne suviante se met en jaune
ActiveWorkbook.SaveAs ThisWorkbook.Worksheets("SPS").Range("H5") & "\" & Sheets("sps").Range("f5") & " " & "Classement offres AVN" & " - " & Sheets("SPS").Range("f3") & ActiveWorkbook.Name