Ouvrir un calendrier à la date du jour

[zeltron24]

Bonjour le Forum,

Je désirerai savoir comment afficher un calendrier à la date du jour.
Dans une feuille nommée "Aout" je clique sur une cellule et le calendrier s'affiche, jusque là ça va, mais le problème est que la date et juin 2008 Voici le code que j'ai mis dans la feuille:

' Affichage du calendrier
If Not Intersect(ActiveCell, Range("Date_Aout")) Is Nothing Then
'***détermine si la cellule sélectionnée appartient à la cible...
FrmCalendrier.Show
End If

et le code d'actvate du calendrier :

Private Sub UserForm_Initialize()
Dim MaDate As Date

Me.Cld1.FrmCalendrier.MaDate = Now - 60

End Sub

Cld1 étant le nom du calendrier
Merci pour votre aide

 

[Pierrot93]

Re : Ouvrir un calendrier à la date du jour

Bonjour,

peut être ceci devrait suffire, dans le module de l'usf :

Me.Cld1.Value = Date

bon après midi
@+

 

[zeltron24]

Re : Ouvrir un calendrier à la date du jour

Bonjour Pierrot93
Effectivement cela fonctionne
Merci et Bon après midi à toi aussi

 

[zeltron24]

Re : Ouvrir un calendrier à la date du jour

Autre petit souci
J'ai un classeur avec 12 feuilles correspondant aux douze mois de l'année (Janvier,Février etc....)
Serait il possible d'ouvrir le calendrier à la feuille correspondant au mois affiché. Ex Feuille "Janvier" active affichage du calendrier en Janvier
Merci

 

[Pierrot93]

Re : Ouvrir un calendrier à la date du jour

Re,

essaye ceci, attention à l'accentuation des mois.... ouvrira le calendrier sur l'année en cours...

Me.Calendar1.Value = DateValue("1 " & ActiveSheet.Name)

 

[zeltron24]

Re : Ouvrir un calendrier à la date du jour

Encore une fois merci Pierrot93
Simplement chancher calendar1 en Cdl1 pour mes besoins
C'est exactement ce que je voulais.
Bonne fin d'A.P.
A+
Zeltron24