Salut,
Le changement de date il intervient quand ? en admettant que ce soit tous les jours, on change le nom de la feuiille en position 1 par la date du jour à l'ouverture du classeur (adapter le format )
'a mettre das thisworkbook
private sub workbook_open()
sheets(1).name=format(now,"ddmmmmyyyy")
end sub
'Mettre dans le code de la feuille où tu désires appeler cette feuille
private sub worksheet_change(byval C as range)
if not application.intersect(c,[A1]) is nothing then
on error resume next
if isdate(c) then sheets(format(C,"ddmmmmyyyy")).activate
end if
end sub
Sinon un petit exemple zippé ....
A+++
Lien supprimé
Lien supprimé