Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir un calendrier à la date du jour

  • Initiateur de la discussion Initiateur de la discussion zeltron24
  • Date de début Date de début

zeltron24

XLDnaute Impliqué
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
 

zeltron24

XLDnaute Impliqué
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

XLDnaute Barbatruc
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...
Code:
Me.Calendar1.Value = DateValue("1 " & ActiveSheet.Name)
 

zeltron24

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
6
Affichages
384
Réponses
12
Affichages
943
Réponses
16
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…