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