XL 2021 Quel code permettrait de refermer mon classeur si la date (les 10 derniers caractères du nom du classeur) ne correspondent pas à la date du jour ?

[Usine à gaz]

Bonsoir à toutes et à tous

Je cherche un code (que je n'arrive pas à élaborer)

Ma question est dans le titre du fil :
Quel code permettrait de refermer mon classeur si la date (les 10 derniers caractères du nom du classeur) ne correspondent pas à la date du jour ?
Par exemple :
aujourd'hui nous sommes le 04 06 2023 et en inversé ça donne 2023 06 04
Par exemple, le classeur de Raissa n'est pas à la date du jour
isiTel_Raissa Dr House 2023 06 05 (correspond aux 10 derniers caractères (espaces inclus))

Je cherche donc le code à mettre dans le classeur Excel s'exécutant à l'ouverture.
Qui refermerait "direct" le classeur avec un p'tit msgbox du genre : c'est pas la date du jour.

Auriez-vous le bon code ?
Merci à toutes et à tous,
Je continue mes recherches.....

 

[Staple1600]

Bonjour le fil

@Usine à gaz
Je te laisse finir la macro, car c'est l'heure de mon souper

Sub test()
Dim vdate$, a$
vdate = Format(Date, "yyyy mm dd")
a = Trim(Right(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5), 10))
vdate = Trim(Format(Date, "yyyy mm dd"))
MsgBox a = vdate
End Sub

Lors de mon test, la MsgBox affichait vrai

 

[Usine à gaz]

Bsr Staple1600
Bsr JM

Je te remercie.
Je vais voir si je peux m'en sortir lol.
Bon souper

 

[Staple1600]

Re

@Usine à gaz
Au bout de 7074 messages sur XLD, tu ne peux que t'en sortir.
Il suffit de mouiller le maillot

If..End if
et tutti quanti

D'autant plus que tu as des bouts de code prêt à l'emploi dans tes discussions de cette semaine.

Bon, je retourne à table, sinon je vais manger froid.

 

[patricktoulon]

re
bonjour à tous
juste en passant

Private Sub Workbook_Open()
Dim Nom$
Nom = ThisWorkbook.Name
If Right(Trim(Mid(Nom, 1, InStrRev(Nom, ".") - 1)), 10) <> Format(Date, "yyyy mm dd") Then ThisWorkbook.Close
End Sub

 

[Usine à gaz]

Bjr Patrick
Nickel, merci à toi.

@JM
Nickel aussi
Merci aussi

lol, me voilà encore une fois grâce à vous bien armé.

 

[job75]

Bonjour Lionel, JM, Patrick,

Private Sub Workbook_Open()
If InStr(Me.Name, Format(Date, "yyyy mm dd") & ".xl") = 0 Then If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

A+

 

[Usine à gaz]

Bjr Gérard
Encore merci du retour.
Nickel et grand merci
lol, me voilà super armé.