Remplacer la valeur d'une cellule par une autre

mcj1997 · 28 Août 2008

Bonjour,

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

Merci d'avance,

formateurmasque · 28 Août 2008

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 · 28 Août 2008

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

Remplacer la valeur d'une cellule par une autre

mcj1997

XLDnaute Accro

Pièces jointes

formateurmasque

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

Discussions similaires

Remplacer la valeur d'une cellule par une autre

mcj1997

XLDnaute Accro

Pièces jointes

formateurmasque

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency