Remplacer la valeur d'une cellule par une autre

[mcj1997]

Bonjour,

J'expose mon petit problème dans la pièce jointe,

Merci d'avance,

 

[formateurmasque]

Re : Remplacer la valeur d'une cellule par une autre

Bonjour,

Je ne sais si c'est la reponnse que vous cherchez !!

Cdt.

FM

 

[kjin]

Re : Remplacer la valeur d'une cellule par une autre

Bonjour,
Avec ce que j'ai compris, en supposant qu'il y a au moins une sauvegarde mensuelle

Sub FinDeMois()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
s = f.DateLastModified
If MonthName(Month(s)) <> MonthName(Month(Date)) Then Range("D6") = Range("D2")
End Sub

Si le mois correspondant au dernier enregistrement du fichier est différent du mois correspondant à la date système, on opère le remplacement de D6 par D2.
On pourrai automatiser pour que la macro opère à l'ouverture du fichier
A+
kjin