P
papoow
Guest
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
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