Microsoft 365 DatePicker dans Userform pour Excel365 ?

F22Raptor à dit:

Bonjour à tous,

J'utilise le DatePicker sous Windows10 + Excel 2016, et notre IT nous fait tester des postes W11+Excel365 pour migration dans quelques semaines.

Il fallait déjà, sous Excel 2016, importer MSCOMCT2.OCX et cocher le contrôle sous VBA, mais une fois ces désagréments réglés, ça marche très bien dans mon UserForm VBA.

Par contre, rien du tout sous Excel 365 : le contrôle à disparu du Userform (et j'ai des messages d'erreur sur mon code, évidemment).
L'IT a ajouté MSCOMCT2.OCX dans C:\Windows\SysWOW64 , mais ça ne marche pas mieux, et je ne la vois pas dans les références/contrôles supplémentaires de l'éditeur VBA.

Je soupçonne que la compatibilité soit terminée en 64bits sous W11/Excel365 ...
Vous confirmez ? ... ou pas ?

(c'est quand même terrible cette tendance de MS à ne pas corriger les bugs, en changeant de version, et à décommissionner des fonctionnalités)

Cliquez pour agrandir...

ThierryP à dit:

Bonjour F22Raptor,
je te confirme, plus de compatibilité, 365 est en 64 bits nativement et donc plus de compatibilité avec les programmes en 32 bits.... Et bien sûr, pas de solution de remplacement, sauf à jouer avec tes petits doigts sur ton clavier et créer toi-même ton datepicker via un USF !
Ou alors, utiliser MonthCalendar de l'API de Windows, mais à coder, pas simple !!!

Perso, j'avais trouvé il y a fort longtemps un USF tout fait, très simple à utiliser (même moi, j'y suis arrivé !!!), il suffit de l'appeler dans ton code par Ta_Variable_Date = CalendarForm.GetDate et ... c'est tout ! L'USF est très documenté, tu peux lui passer des variables, changer l'aspect etc... etc...
Je ne sais plus trop ce que j'en ai fait, mais l'auteur s'appelle Trevor Eyre, une petite recherche sur le net devrait te permettre de le retrouver !

Cliquez pour agrandir...

je te confirme, plus de compatibilité, 365 est en 64 bits nativement et donc plus de compatibilité avec les programmes en 32 bits....

Cliquez pour agrandir...

job75 à dit:

Dans les Ressources XLD voyez le calendrier de patricktoulon.

Cliquez pour agrandir...

patricktoulon à dit:

@nullosse
en voilà une idée faut voir
vu que ce userform calendar est utiliser comme interface et module classe en même temps
le mettre dans un complément ferait un subclassing
et donc certainement provoquerait des event repeat intempestifs
sauf , gestion simple avec tag de l'appelant si pas utilisé (j'avais fait quelque essais )

Cliquez pour agrandir...

Public Function CalShowX(Optional objX As Variant, Optional Side As Long = 2, Optional top As Long = 0, Optional optionRegionale As Long = 1000)
CalShowX = Calendar.ShowX(objX, Side, top, optionRegionale)
End Function

Private Sub Label5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button = 2 Then
        Label5 = CalShowX(Label5, 0, 2, 1)
    End If
End Sub