syntaxe date

Evelynetfrancois · 28 Novembre 2007

bonsoir a tous

je cherche la syntaxe sans trouver !!!
pouvez-vous m aider ?

Dim D As String
...........................
D = ActiveCell.Format(CDate("DDDD DD MMMM YY"))
If Msg = "" Then MsgBox "Pas de rendez-vous de noté pour le " & D, vbExclamation, " Mes rendez-vous de demain . . . ., " Else MsgBox Msg, vbInformation, " Mes rendez-vous de demain . . . . "

merci beaucoup d'avance
E et F

matthieu33 · 28 Novembre 2007

Re : syntaxe date

Bonsoir Evelynetfrancois,

Voici une solution :

Code:

Dim D As String

If IsDate(ActiveCell) Then
    D = Format(CDate(ActiveCell), "DDDD DD MMMM YY")
    If Msg = "" Then MsgBox "Pas de rendez-vous de noté pour le " & D, vbExclamation, " Mes rendez-vous de demain . . . ., " Else MsgBox Msg, vbInformation, " Mes rendez-vous de demain . . . . "
    
End If

@+

Evelynetfrancois · 28 Novembre 2007

Re : syntaxe date

merci pour ta rapidité !!super matthieu33
ca parait toujours simple apres coup ..... mais je n aurais pas trouvé seul!!
un grand merci
et une bonne soirée a toi
E et F

syntaxe date

Evelynetfrancois

XLDnaute Impliqué

matthieu33

XLDnaute Occasionnel

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

syntaxe date

Evelynetfrancois

XLDnaute Impliqué

matthieu33

XLDnaute Occasionnel

Evelynetfrancois

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency