Insertion d’une celle enregistrer sur un autre fichier Excel

Bonjour !

Je suis ici pour demander votre aide vu que je suis novice en VBA !

Je souhaite que la cellule R32C3 se voit attribuer la valeur de la cellule du fichier précédent J-1 pour tout le mois automatiquement sans que a chaque fois j'incrémente manuellement sur le macro. Au tous simplement, simplifier mon macro. En piéce jointe le workbook 01 décembre 2015.xls

Merci d'avance !

Sub Daily_Production_Report_Macro()

'

' Daly_Production_Report_Macro

'

Dim LePath As String, LeNom As String, Linkdate As String

ActiveWorkbook.Save ' Enregistre le rapport actif (workbook qui se nom 01 décembre 2015.xls et qui est déjà ouvert)

LePath = ActiveWorkbook.Path & "\"

LeNom = Format([c7+1], "dd mmmm yyyy") & " .xls" 'incrimente la date d'une journée pour changer le nom du fichier

Range("c7").Select

ActiveCell.FormulaR1C1 = [c7+1] 'incrimente la date d'une journée sur la cellue C7

ActiveWorkbook.SaveAs LePath & LeNom

Range("c29").Select

ActiveCell.FormulaR1C1 = _

"='d:\Rapport de production\2015\12 Décembre\[01 décembre 2015.xls](1) Rapport de Production'!R32C3" '

ActiveWorkbook.Save

LePath = ActiveWorkbook.Path & "\"

LeNom = Format([c7+1], "dd mmmm yyyy") & " .xls"

Range("c7").Select

ActiveCell.FormulaR1C1 = [c7+1]

Range("c29").Select

ActiveCell.FormulaR1C1 = _

"='d:\Rapport de production\2015\12 Décembre\[02 décembre 2015.xls](1) Rapport de Production'!R32C3"

ActiveWorkbook.SaveAs LePath & LeNom

End Sub