Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Date du jour

Date du jour

5 réponses
Avatar
Alpha
Bonjour, j'essaie d'écrire (depuis un long moment)
Quelque chose comme cela

Sub Lancement()
If Now() = CDate("2003/11/30") Then MsgBox "toto"
End Sub

Merci
Alpha
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Papyty
Salut @ Tous,
Alpha a écrit:
Sub Lancement()
If Now() = CDate("2003/11/30") Then MsgBox "toto"
End Sub


Essai:
Sub Lancement()
If Date = CDate("2003/11/30") Then MsgBox "toto"
End Sub
C'est ce que tu veux?
--
@+
Thierry

Avatar
Alpha
Merci beaucoup,
Alpha

"Papyty" a écrit dans le message de news:
bh1lnc7kv8yi.j40hjgxjjpye$
Salut @ Tous,
Alpha a écrit:
Sub Lancement()
If Now() = CDate("2003/11/30") Then MsgBox "toto"
End Sub


Essai:
Sub Lancement()
If Date = CDate("2003/11/30") Then MsgBox "toto"
End Sub
C'est ce que tu veux?
--
@+
Thierry



Avatar
AV
Tu devrais lire attentivement les réponses à tes précédentes questions
similaires....

AV
Avatar
Alpha
Tu as entièrement raison
Merci
Alpha

"AV" a écrit dans le message de news:

Tu devrais lire attentivement les réponses à tes précédentes questions
similaires....

AV




Avatar
gee-dee-
Bonsoir,
en toute logique il faudrait comparer par rapport à aujourd'hui plutot que
maintenant
aujourd'hui renvoie une date : 2003/11/30
maintenant renvoie une date et un horaire !!! 2003/11/30 23:50:15
ce qui est évidement different de 2003/11/30

donc il faut ecrire :

Sub Lancement()
If Today() = CDate("2003/11/30") Then MsgBox "toto"
End Sub

@+