Autres essaie sur excel 64 bits

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
je fait le ménage et je suis tombé sur mes dossiers api et excel4macro ( utilisation des api WINDOWS sans déclaration)

j'aurais donc besoins de testeurs excel 64 bits voir si ça fonctionne sur version 64 bits

dans un userform mettez ceci et lancez le (si ca fonctionne vous devriez avoir les 3 boutons dans la caption et et le mouse resize )
VB:
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hwnd&
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub
j'attends vos retours
merci ;)
 
Solution
affi
Sans titre1.jpg
chage OK, photo ci-dessous :

Discussions similaires

Statistiques des forums

Discussions
313 316
Messages
2 097 099
Membres
106 836
dernier inscrit
ChristopheDF