Bonsoir lio, Gérard, le Forum,
A ce jour, le
Lien supprimé ne peut être appelé pour utilisation dans un Userform personnalisé (pour remplir un TextBox par exemple). Il a été conçu comme aide à la saisie des dates dans les feuilles Excel uniquement.
Si ton intention est de remplacer le MScalendar par cet utilitaire
dans ton Userform, cela ne fonctionnera malheureusement pas... pour ce type d'utilisation, je te conseillerais un autre utilitaire :
Ce lien n'existe plus conçu par notre grand ami Ti.
Si par contre, tu as créé ce Userform dans l'unique but de compléter des cellules ensuite, alors tu peux effectivement utiliser le
mDF Calendrier à la place...
Le cas échéant, tu peux commander l'affichage du
mDF Calendrier directement depuis ton code VBA, selon 3 façons différentes qui influeront sur la position de l'utilitaire à l'affichage :
Sub mDFCal_Centre()
'Ouvre le mDFcalendrier au centre de l'écran
'(Attention ici à l'utilisation des apostrophes à l'intérieur des guillemets)
Application.Run (''mDFcalShow -1'')
End Sub
'__________________________________________________________________________________
Sub mDFCal_PositionAuto()
'Ouvre le mDFcalendrier en position automatique près de la cellule active
Application.Run ('mDFcalShow')
End Sub
'__________________________________________________________________________________
Sub mDFCal_PositionXY()
'Ouvre le mDFcalendrier en position forcée selon des coordonnées écran X et Y
'(Attention ici à l'utilisation des apostrophes au début et à la fin de la chaine)
Dim X As Long, Y As Long
X = 50
Y = 20
Application.Run (''mDFcalShow 1,' & X & ',' & Y & ''')
End Sub
Cordialement,
PS : Heu... mon pseudo c'est my
DearFriend!... et non my
DeadFriend!... LOL !... Un peu fatigué certe, mais je suis encore vivant...
Message édité par: myDearFriend!, à: 04/10/2005 20:43