Message suivant date du jour

[papoow]

Bonjour à tous

Sur un fichier, j'ai ajouter un bout de code pour apporter un peu de courtoisie, suivant l'utilisateur et la date du jour, un message apparait et la fête ou l'anniversaire est souhaité!!!

Mon bout de programme ne fonctionne plus, il a trés bien fontionné, depuis une mise à niveau assez lourde de notre matériel, ça ne fonctionne plus!

Je pense que : "If Date = ((38210) Or (32211)... n'est plus reconnu
Quel format dois-je mettre pour identifier la date du jour sur ma machine ?

Merci pour votre aide et bon courage à tous

Ci dessous le bout de programme !

TheDate = Format(Date, "Long Date")
TheTime = Format(Time, "Short Time")

If Application.UserName = ("Christian") Then
Greeting = FullName & " Bonjour, Tu es sur une Application Excel : Outil Charge et Bons "
MsgBox "Nous sommes le " & TheDate & ", il est exactement " & TheTime & "! " & _
Chr(13) & _
Chr(13) & "Salut, Bonne Journée. ", vbOKOnly + vbInformation, Greeting
If Date = ((38211) Or (38282) Or (38647) Or (39012) Or (39377)) Then
Greeting = FullName & " Bonjour, Bon Anniversaire "
MsgBox "Nous sommes le " & TheDate & ", C'est un grand jour !" & _
Chr(13) & _
Chr(13) & "Bon Anniversaire mon Dudu !" & _
Chr(13) & _
Chr(13) & "Amicale pensée, Christian !", vbOKOnly + vbInformation, Greeting
End If
End If

Merci le forum 🙂

 

[Minick]

salut,

Effectivement je pense que cela vient de ton test de date, essai plutot comme ca:

If Date = 38211 Or Date = 38282 Or Date = 38647 Or Date = 39012 Or Date = 39377 then ....

@+ Minick

 

[papoow]

Genial Minick,

Le tuyau est le bon !

Bravo pour la rapidité et la qualité de ton aide !

c'est un super forum, merci à tous

@+ Papoow

 

[papoow]

Re bonjour,

Erreur, trop de précipitation !

La macro, ne prend pas en compte la condition sans les parenthéses et affiche le message!

et

avec les parenthéses la date n'est pas identifiée...

La question reste posée !

Cordialement,

 

[Minick]

Salut,

Peux tu remettres ton code avec la modif stp

et sur kel version d'excel tu bosses


paske ca fonctionne avec et sans () ici


@+ Minick

 

[papoow]

Minick, re bonjour !

je suis sur excel 2000 version us

Le code

Sub Salut ()
'
' Salutation Macro

' Définition des formats Date et Time
TheDate = Format(Date, "Long Date")
TheTime = Format(Time, "Short Time")
' Détermine l'expression de Salutation suivant l'heure
' Ajoute le prénon de l'utilisateur
FullName = Application.UserName


If Application.UserName = ("Christian") Then
Greeting = FullName & " Bonjour, Tu es sur une Application Excel " MsgBox "Nous sommes le " & TheDate & ", il est exactement " & TheTime & "! " & _
Chr(13) & _
Chr(13) & "Salut, Bonne Journée. ", vbOKOnly + vbInformation, Greeting
If Date = 38211 Or 38282 Or 38647 Or 39012 Or 39377 Then
Greeting = FullName & " Bonjour, Bon Anniversaire "
MsgBox "Nous sommes le " & TheDate & ", C'est un grand jour !" & _
Chr(13) & _
Chr(13) & "Bon Anniversaire !" & _
Chr(13) & _
Chr(13) & "Amicalement !", vbOKOnly + vbInformation, Greeting
If Date = ((38211) Or (38216) Or (38217) Or (38218) Or (38219)) Then
Greeting = FullName & " Bonjour!"
MsgBox "Nous sommes le " & TheDate & ", C'est un grand jour !" & _
Chr(13) & _

Chr(13) & "Bon Retour et bon Courage !" & _

Chr(13) & "Bon Retour, bon Courage !" & _
Chr(13) & _
Chr(13) & "Amicalement !", vbOKOnly + vbInformation, Greeting
End If
End If
End If

A+, merci

 

[Minick]

re,

ben vi mais heuuuuuu, t'as pas ecrit c'ke je t'ai proposé

tu as ecrit:
If Date = 38211 Or 38282 Or 38647 Or 39012 Or 39377 Then

et je t'ai proposé
If Date = 38211 Or Date=38282 Or Date=38647 Or Date=39012 Or Date=39377 Then


@+ Minick

 

[papoow]

Bonjour, Minick

Désolé de t'avoir fait perdre ton temps,
je n'ai pas lu correctement ta réponse, trop de précipitation !

Ta proposition fonctionne trés bien, j'ai modifié la position de fin de condition et tout va bien.

Encore merci pour ton aide et ta patience.

Cordialement, papoow