XL 2016 code Killer

[Usine à gaz]

Bonjour à toutes et à tous,

J'avis suivi, en leurs temps, les fils concernant un code permettant de supprimer un classeur si celui-ci est ouvert à une date définie.

Parmi les codes "généreusement" transmis, celui que j'ai retenu fonctionne très bien pour moi.

Aujourd'hui, à l'utilisation, un souci que je n'avais pas prévu voit le jour.

J'aimerais, au lieu de modifier la date (numéro du jour) dans le code, pouvoir lier la date d'exécution (LOL c'est le mot) à une cellule d'une feuille que je peux actualiser quand je le souhaite par un simple clic sur bouton.

Mais voilà, le code fonction très bien sous cette codification :

Option Explicit
Private Sub Workbook_Open()
If CLng(Date) = 43540 then
    MsgBox ("Cliquez pour continuer")
    Suicide2
End If
End Sub

Mais ne fonctionne plus sous ma codification :

Option Explicit
Private Sub Workbook_Open()
If CLng((Date) = "=Feuil1!R5C13") Then
    MsgBox ("Cliquez pour continuer")
    Suicide2
End If
End Sub

Et je n'arrive pas à trouver comment modifier mon code.
Auriez-vous la solution ?
Je joins le fichier test.

Avec mes remerciements,
Je vous souhaite à toutes et à tous un très bon et beau WE,
Amicalement,
arthour973,

 

[Efgé]

Bonjour arthour973
Je trouve la demande particulièrement incompréhensible:

If CLng(Date) = 43540 then

Peut-être

If CLng(Date) = Clng(Sheets("Feuil1").value) then

Peut-être, peut-être....
Cordialement

Édit
A bien regardé il me semble que ton code est particulier. tu importe un module dans un nouveau classeur copié depuis l’existant avant de supprimer l’existant

 

[Usine à gaz]

Bonjour Efgé,

Merci pour m'avoir répondu
Malheureusement, ça ne fonctionne pas.
j'ai essayé des variantes à votre code "If CLng(Date) = Clng(Sheets("Feuil1").value) then"
Mais je n'ai pas plus de succès
Amicalement,
arthour973,

 

[Efgé]

Je trouve la demande particulièrement incompréhensible:

Je laisse donc la main à plus intuitif que moi
Cordialement

 

[Usine à gaz]

J'essaie de présenter ma demande autrement en espérant être plus compréhensible LOL

Le code d'origine :

Option Explicit
Private Sub Workbook_Open()
If CLng(Date) = 43540 then
    MsgBox ("Cliquez pour continuer")
    Suicide2
End If
End Sub

Le code fonctionne bien mais oblige à chaque changement de date d'aller modifier le n° du jour dans le ThisWorkbook

Pour que ce soit plus pratique pour moi, j'aimerais que la date du jour d'exécution soit liée à une cellule de la feuille1,
genre :

If CLng((Date) = "=Feuil1!R5C13") Then

Ce qui me permettrait par un simple clic sur le bouton dans la feuille1, de modifier la date d'exécution du code.

Amicalement,
arthour973,

 

[job75]

Bonjour Lionel, Efgé,

Mais qu'est-ce qu'il vous arrive à tous les deux ??? Utiliser :

If Date = Sheets("Feuil1").[M5] Then

ou :

If Date = [Feuil1!M5] Then

A+

 

[Modeste geedee]

bonsour®

J'essaie de présenter ma demande autrement en espérant être plus compréhensible LOL

Le code d'origine :

Option Explicit
Private Sub Workbook_Open()
If CLng(Date) = 43540 then
    MsgBox ("Cliquez pour continuer")
    Suicide2
End If
End Sub

Le code fonctionne bien mais oblige à chaque changement de date d'aller modifier le n° du jour dans le ThisWorkbook

Pour que ce soit plus pratique pour moi, j'aimerais que la date du jour d'exécution soit liée à une cellule de la feuille1,
genre :

If CLng((Date) = "=Feuil1!R5C13") Then

Ce qui me permettrait par un simple clic sur le bouton dans la feuille1, de modifier la date d'exécution du code.

Amicalement,
arthour973,

????

If CLng(Date)= Feuil1.Range("M5").Value Then

 

[Usine à gaz]

Bonjour Gérard, Bonjour Modeste geedee,

Merci Gérard : effectivement LOL qu'est-ce qu'il nous arrive ?
Bien évidemment, c'est comme cela qu'il faut le coder.

Encore un grand merci,
amicalement,
Lionel,

 

[eriiic]

Bonjour à tous,

voire même :
If Date >= Sheets("Feuil1").[M5] Then
des fois qu'il soit malade le jour j ;-)
eric

 

[Usine à gaz]

Bonjour eriiiic,
Merci pour le code et pour l'humour
amicalement,
lionel,