Bonjour,
Je souhaite utiliser le calendrier conçu par M. Jacques Boisgontier dans un formulaire. Le message d'erreur "Propriété ou méthode non gérée par cet objet". Après recherches, l'erreur serait due au fait que les zones concernées (DateRéception et DateRdv) soient intégrées dans un Frame. Comment adapter le code pour cibler ces 2 zones contenues dans le frame (frFiche) et saisir une date via le calendrier ?



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function pression(no_cellule)
 Dim K, décal
 décal = Weekday(DateSerial(Year(mois_courant), Month(mois_courant), 1), vbMonday) - 1
 raz_tot
 affiche_calendrier (mois_courant)
 Me("texte" & no_cellule).BackColor = 65535
 Début = no_cellule
 c = UserForms(UserForms.Count - 2).ActiveControl.Name
 UserForms(UserForms.Count - 2).Controls(c) = DateSerial(Year(mois_courant), Month(mois_courant), Début - décal)
 Unload Me
End Function