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 )
j'attends vos retours
merci
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 Submerci