syntaxe date

[Evelynetfrancois]

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]

Re : syntaxe date

Bonsoir Evelynetfrancois,

Voici une solution :

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]

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