Caler un calendrier à la date du jour......

[SARAH]

Bonjour à tous !

Une petite question....Si vous me le permettez...

Ci-dessous, le code VBA de mon calendrier apparaissant dans un USF.
Actuellement, lorsqu'il apparait, il est à une date aléatoire ...

Qu'est ce que je dois rajouter dans mon code, pour qu'il se cale à la date du jour ?

Merci à tous !!!!!

*********************************************************

Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1, "ddd DD mmm YY")
Unload Me
End Sub
Private Sub Quitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Calendar1
.Day = Day(Now)
.Month = Month(Now)
End With
End Sub

 

[Pascal76]

salut

As-tu essayé ?

Calendar1.value=Date

Bon courage

Pascal

 

[SARAH]

A mettre ou cette ligne ?

Excusez moi, je suis novice....

Merci.

 

[Arnaud]

Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1, "ddd DD mmm YY")
Unload Me
End Sub
Private Sub Quitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Calendar1
.Day = Day(Now)
.Month = Month(Now)
.value=Date
End With
End Sub



enfin je pense

 

[EMG]

Bonjour à tous, SARAH

Regarde sur ce file il y à un fichier AssistantDates tout est dans ce fichier

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=65431&t=60157>

@+ Gérard

 

[SARAH]

Bingo Arnaud !

Ca fonctionne très bien !

Merci à toi et à Pascal également !

Bonne journée.

Sarah ;-)

 

[Pascal76]

Re

peut-être tout simplement

Private Sub UserForm_Initialize()
Calendar1.value=Date
end sub

Bon courage

Pascal