XL 2016 code Killer

Usine à gaz · 23 Mars 2019

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 :

VB:

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 :

Code:

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é · 23 Mars 2019

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

arthour973 à dit:
If CLng(Date) = 43540 then

Peut-être

arthour973 à dit:
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 · 23 Mars 2019

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é · 23 Mars 2019

Efgé à dit:
Je trouve la demande particulièrement incompréhensible:

Je laisse donc la main à plus intuitif que moi
Cordialement

Usine à gaz · 23 Mars 2019

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

Le code d'origine :

VB:

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 :

Code:

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 · 23 Mars 2019

Bonjour Lionel, Efgé,

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

VB:

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

ou :

VB:

If Date = [Feuil1!M5] Then

A+

Modeste geedee · 23 Mars 2019

bonsour®

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

Le code d'origine :

VB:

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 :

Code:

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,

????

VB:

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

Usine à gaz · 23 Mars 2019

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 · 23 Mars 2019

Bonjour à tous,

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

Usine à gaz · 23 Mars 2019

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

XL 2016 code Killer

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Efgé

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires