XL 2021 Calendrier DTPiker

[Bruce68]

Bonjour à tous
J'ai excel 2024 et je n'arrive pas à installer le DTPicker .
je vous remercie de votre aide

 

[nullosse]

avec la fusion et l'api dans un if vba7 en espérant qu'avec win 7 l'api ne soit pas relevée comme erreur d'entré de la dll

Salut,
A tester , des api et un code qui fonctionne à priori à partir de windows XP et Excel 2010 (début de VBA7). Pour des versions inférieures d'Excel il faut adapter les API (VBA6) :

Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
Private Const LOGPIXELSX As Long = 88

Private Function AppDpi() As Long
    Dim hDC As LongPtr
    Dim dpi As Long
    hDC = GetDC(0)
    dpi = GetDeviceCaps(hDC, LOGPIXELSX)
    ReleaseDC 0, hDC
    If dpi <= 0 Then dpi = 96   ' fallback sécurité
    AppDpi = dpi
End Function

GetDeviceCaps renvoie le DPI logique, pas le DPI par-monitor (PMv2).

 

[patricktoulon]

re
oui @nullosse sauf que la il faut faire les déclarations vb6( en long) aussi sinon win 7 toujours whalouh
autrement dit on reviens toujours au bretelles
a savoir :que vous pouvez utilisez la methode pointstoscreenpixels avec les deux
je l'ai voulu léger et limpide et a la base c'est pour les utilisateurs 64 bits
on a tout fait @Rheeem et moi pour réduire le saucissonnage
le module userform est propre ceux qui veulent l'adapter en vb6 savent ce qu'il faut faire mais je ne modifierais pas la ressource

 

[cathodique]

Mr le prend mal par ce qu'on luimet ses erreurs sous le nez

Pas du tout. Je n'ai fait qu'une suggestion pour améliorer votre proposition.
Je n'avais aucune prétention, ni d'arrière pensée.

tu partage que quand tu crois avoir raison toi

La solution partagée n'était même pas de moi. Je n'ai rien cru.
J'ai voulu juste partager ce qui me semblait être une solution.
Car je n'ai plus eu de plantage.
Aujourd'hui, j'ai appris une bonne leçon. Je dormirai moins idiot à mon âge et je m'en réjouis.

Bonne soirée.

 

[Bruce68]

Bonsoir à tous
Merci pour toutes vos réponses, maintenant il faut que je choisisse une de vos propositions.
Encore merci et bonne soirée tous

 

[patricktoulon]

une derniere chose @cathodique
toi avec 2007 et office 2007jusuqu' à 2013, tu l'a avec le com le calendrier
tu n'a pas besoins de tout ça