modifier une variable date

Bonjour,

J'ai une variable date et je souhaite modifier le jour.
Voici mon code :


'Déclaration de la variable
Dim madate As Date

If IsDate(ActiveCell.Value) Then
'Récupération de la date
madate = CDate(ActiveCell.Value)

'On réinitialise le jour de maDate à 1
madate = ????
End If

Merci.

Eventuellement ceci :

madate = DateAdd("d", (Day(madate) - 1) * -1, madate)


@+

pelw


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> J'ai une variable date et je souhaite modifier le jour.
> Voici mon code :
>
>
> 'Déclaration de la variable
> Dim madate As Date
>
> If IsDate(ActiveCell.Value) Then
> 'Récupération de la date
> madate = CDate(ActiveCell.Value)
>
> 'On réinitialise le jour de maDate à 1
> madate = ????
> End If
>
> Merci.
>