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 ?

Staple1600

XLDnaute Barbatruc

• 4 Juin 2023

• #2

Bonjour le fil

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 4 Juin 2023

• #3

Bsr Staple1600
Bsr JM

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juin 2023

• #4

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juin 2023

• #5

re
bonjour à tous
juste en passant

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Juin 2023

• #6

Bjr Patrick
Nickel, merci à toi.

@JM
Nickel aussi
Merci aussi

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juin 2023

• #7

Bonjour Lionel, JM, Patrick,

VB:

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Juin 2023

• #8

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

 

Vote positif 0 Vote négatif