XL 2016 SetTimer incompatible version excel

[carlos]

Bonjour,
en désinstallant excel 2007 pour excel 2016 mes fichier utilisant la déclaration suivante ne marchent plus : TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)

J'ai beau mettre ptrsafe et longptr cela ne résout rien.
Auriez vous une proposition?
Carlos

 

[Dranreb]

On aura plutôt LongLong. LongPtr n'est pas un vrai type de donnée, c'est un méta-type qui s'interprète automatiquement soit Long soit LongLong.

 

[patricktoulon]

re
oui exact longlong

comme je disais il serait bien de tester le return de l'api

Option Explicit
#If win64 Then
    Private Declare ptrsafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Longptr
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If
Sub Test()
    #If win64 Then
        Const CapacitéAdressage = 64
    #Else
        Const CapacitéAdressage = 32
    #End If
    MsgBox "Sur mon système à capacité d'adressage de " & CapacitéAdressage & " bits," _
         & vbLf & "avec l'expression Application.hWnd, le return handle  est de type " & TypeName(Application.Hwnd) & "." & vbCrLf & vbCrLf & _
           "par contre avec l'api FindWindowA le type est " & TypeName(FindWindow(vbNullString, Application.Caption))
End Sub

 

[Dranreb]

Oui mais si vous la déclarez comme renvoyant un LongPtr elle va renvoyer un LongLong, et comme renvoyant un Long elle va renvoyer un Long, inexact peut être, amputé de bits de poids fort, mais un Long quand même, si elle ne plante pas. C'est pour ça que je préfère qu'on teste le type d'un handle fixé par les développeurs d'Excel !

 

[carlos]

Bonjour,
je suis désolé de ne répondre que maintenant.
Voici ma capture d'écran :

Je ne comprends pas très bien votre discussion trop technique pour moi.
J’espère que cela réussira à débloquer la situation.
Cordialement
Carlos

 

[patricktoulon]

re
bonjour carlos
ben voila tu a ta réponse et nous aussi je pense (je m'en doutais un peu a vrai dire)
application.hwnd donne bien un long(par conversion vba) alors que dans l'api settimer on attend un longlong en argument quand on est en 64

donc sert toi de l'api findwindowA ou getactivewindow(déclaration en 64 bien sur)

peut être pourrais tu convertir le long avec ClngLng(=longlong)

 

[carlos]

Bonjour Patrick
Comment je me sers de l'API findwindowA ou getactivewindow ?
C'est un peu du chinoi spour moi.

 

[patricktoulon]

re
peut etre devrais tu remonter jusqu'au post #17 tu y trouverais qui sais une réponse

 

[carlos]

Re,
j'ai changé Long en ClngLong pour la déclaration de hwmd mais ça ne marche pas.
Je ne vois pas ce qu'il faut faire , même en revenant sur les post#17. Désolé.

 

[Dranreb]

Bonjour.
En tout cas j'ai ce que je voulais savoir. Les handle doivent bien être déclarés As LongPtr.
C'est ce que j'ai fait dans le classeur joint. Dites moi si tous les dispositif fonctionnent normalement. Si c'est le cas on vas résoudre votre problème avec un objet Rythmeur, après avoir glissé/déplacé vers votre projet le module standard MRythmeur et le module de classe Rythmeur.

 

[Dranreb]

Mais… qu'est ce qui se passe encore ? Je viens de relire le poste #17 (je l'avais mal lu parce que pollué par des suggestions absurdes de patricktoulon). Donc Application.hWnd est bien toujours long même en 64 bits ?? je supprime ma pièce jointe du poste précédent.
Testez celle du poste #10 et dites moi si tout fonctionne.

 

[patricktoulon]

Bonjour @Dranreb
j'ai lancé demoUfmprog avec le bouton et ...

et quand je remplace longptr en long ca fonctionne
je sais que longptr et long peut se faire en entete de module dans un #if #else #endif tout le reste du code est converti apres tout seul je sais plus ou j'ai mis ca

 

[Dranreb]

Je suis revenu en arrière: jusqu'à nouvelle preuve du contraire il n'y a pas lieu de déclarer les handle As LongPtr

 

[patricktoulon]

re
Absurde!!??
pas du tout!!!!!!! j'essai de dire mais en vain visiblement de ne pas utiliser application.hWnd
ce qui est absurde
c'est de faire "ByVal hWnd As Longptr," dans timeproc et dans cette meme sub essayer de killer le timer avec application.hwnd qui lui est en long
alors que l'id du timer est certainement en en longlong pour 64
et il y a la même chose dans stopperythmeur

 

[Dranreb]

N'importe quoi. L'Idt du Timer est donnéee par l'utilisateur en Long lors du SetTimer.
Mais j'attends de voir ce que dit @carlos à propos de de mon Progression.xlsm

 

[patricktoulon]

d'accords @Dranreb peux tu me dire sincèrement a quoi te sert le hwnd dans timeproc

Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal Idt As Long, ByVal Tic As Long)
    On Error Resume Next
    TRythmeurs(Idt).MéthodeRésevéeÀTimerProc Tic
    If Err Then KillTimer Application.hWnd, Idt:=Idt
End Sub

LOL

QUE LES choses soient claires
(ByVal hWnd As Long, ) et application.hWnd
ne sont pas les même VARIABLES handle même si en 32 bits il correspondent
D'AUTANT PLUS QUE TU L'UTILISE MEME PAS DANS TA TIMEPROC