Enregistrer une copie d'un fichier avec modif intitulé

Bonjour, Bonsoir ou tout ce qui pourra vous plaire.


Pour ne pas vous enquiquiner trop longtemps, voici donc mon problème:

j'essaye tant bien que mal de créer une copie d'un fichier excel. A savoir que la copie doit comporter un autre nom que le fichier d'origine (en gros le fichier d'origine sert de matrice et il est important de garder la matrice telle quelle).

A savoir: j'ai un fichier (excel) A qui sera rempli par les utilisateurs. Une macro basique permet alors de transférer les info sur un autre fichier excel B (qui correspond au fichier d'origine cité ci-dessus). Une fois ce fichier B rempli avec les données en A, une sauvegarde est effectuée pour créer un dernier fichier C dont le titre dépend de cellules.
Mais le hic c'est que je n'arrive pas à sauvegarder une copie de B pour donner C. Soit B disparait pour devenir C, soit je n'arrive pas à renommer C.

Voici le code utilisé (il se trouve dans le fichier A où sont entrées les informations par les utilisateurs):

Sub nouveaux_patients()
Dim np As Workbook

Set np = Application.Workbooks.Open("D:\TRAME TOMO.xls", True)
 
  np.Worksheets("plan Ttt").Range("B2") = ThisWorkbook.Worksheets("Feuil1").Range("D4")
  np.Worksheets("plan Ttt").Range("B1") = ThisWorkbook.Worksheets("Feuil1").Range("D5")
  np.Worksheets("plan Ttt").Range("D15") = ThisWorkbook.Worksheets("Feuil1").Range("D6")
  np.Worksheets("plan Ttt").Range("H15") = ThisWorkbook.Worksheets("Feuil1").Range("D7")
  np.Worksheets("plan Ttt").Range("F15") = ThisWorkbook.Worksheets("Feuil1").Range("D8")
  np.Worksheets("plan Ttt").Range("B27") = ThisWorkbook.Worksheets("Feuil1").Range("D9")
 
np.SaveAs "D:\" & Range("D4").Value & "" & Range("D5").Value & ".xls"
' la ligne ci-dessus semble buguée mais je ne comprends pas où
    
' ou nf.Save mais dans ce cas pas de modification du nom du fichier de sortie
 
np.Close
 
End Sub

Merci par avance et toutes mes excuses pour mon manque de connaissances en macro/vba