Fichier daté exclusivement sur un jour de la semaine

Bonjour,

Est-il possible de dater un fichier par exemple au lundi 21/12/20 et que celui-ci change automatiquement le lundi suivant mais avec 4 contraintes:

Ce fichier ne sert exclusivement au lundi, sans faire défiler les autres jours de la semaine, sans faire apparaitre les autres lundis sur une colonne et ne pas changer après minuit entre le lundi et le mardi?

Merci pour vos retours

Bonjour,

Je vous propose un premier essai :

'CODE A PLACER DANS LE MODULE THISWORKBOOK

private sub woorkbook_open() 'à l'ouverture du fichier

Dim datewb as long

with Me 'avec le fichier
    datewb = clng(.name)   'variable stocke le nom converti en date
    while datewb + 7 <= now 'tant que le nom converti en date + 7 est inférieur ou égale à la date du jour
        datewb = datewb + 7 'datewb incrémenté de 7
    wend
    .name = format(datewb, "DD-MM-YY") 'le nom du fichier prend la date convertie en texte au format adéquat
    '.name = format(datewb, "DDDD DD-MM-YY") 'nom au format "lundi jj-mm-aa".
end with
end sub

Sur le principe, ça devrait s'approcher de ce que vous cherchez mais il faudra voir s'il n'y a pas des petits pépins au niveau des formats.

Cdlt,