Salut le forum et FMR,
RMR, garde la macro de Ti pour la 4ème couleur dans la 1ère feuille, mais pas dans les autres pour ne pas la dupliquer.
Ensuite, tu cherches si ta feuille du jour existe, sinon iu la crées :
Sub CreeFeuilleDuJour()
'
' Macro enregistrée le 17/03/2003 par C@thy
'
FeuilleJour = Format(Date, "DDMMYY")
For Each Ws In Sheets
If Ws.Name = FeuilleJour Then Exit Sub
Next Ws
FeuilleVeille = Sheets(Sheets.Count - 2).Name
Sheets(Sheets.Count - 1).Select
NomDerFeuille = ActiveSheet.Name
NumDerFeuille = Sheets.Count - 1
Sheets(NomDerFeuille).Copy Before:=Sheets(Sheets.Count)
Sheets(Sheets.Count - 1).Name = FeuilleJour
Range("B1").Select
AncienneFeuille = ActiveCell.Value
ActiveCell.Value = FeuilleJour
Range("b7").Select
ActiveCell.FormulaR1C1 = _
et c'est là que j'ai un problème il faut remplacer dans la formule la référence à l'ancienne date par la date du jour et la référence à la feuille précédente change aussi, of course, et là, je cale!!! Il faut créer un nouveau fil et demander de l'aide aux pros!
=SI('C:\EXCEL\Forum\[mars2003.xls]070303'!N7=0;0;'C:\EXCEL\Forum\[mars2003.xls]070303'!N7+'060303'!B7)
ma bidouille consiste à transformer en texte en mettant un caractère parasite devant puis faire des replace successifs, mais ça marche pas terrible
"µ" & ActiveCell.Formula
ActiveCell.Replace What:=NomDerFeuille, Replacement:=FeuilleJour, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
ActiveCell.Replace What:=FeuilleVeille, Replacement:=NomDerFeuille, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
ActiveCell.Replace What:="µ=IF", Replacement:="=SI", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
HELP!!! Quelqu'un peut nous aider? Merci à toutes et tous
C@thy