Autres essaie sur excel 64 bits

[patricktoulon]

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 )

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 😉

 

[fanfan38]

Bonjour
J'ai insérer un userform vide et copier ton code
RIEN à l'écran... a part un userform vide... lol
A+ François

 

[Usine à gaz]

Bonjour Patrick, fanfan38, le forum,
Même résultat pour moi,
lionel,

 

[jmfmarques]

Bonjour fanfan38 et arthour973

J'ai insérer un userform vide et copier ton code

Le code à tester n'est pas censé "remplir" le userform, mais insérer dans sa barre de titre (Patrick a utilisé par erreur le terme "caption") deux boutons de plus que celui de fermeture (le bouton de réduction et celui d'agrandissement)

 

[patricktoulon]

Bonjour
merci @jmfmarques 😉
je le redis le confinement fait des dégâts dans les chaumières 😛
le résultat attendu est la vue de gauche

 

[Usine à gaz]

Chalut Patrick,

Ci-dessous photo résultat obtenu :

lionel 🙂

 

[job75]

Bonjour à tous,

Chez moi sur Excel 2019 64 bits les 3 boutons sont présents sur la barre de titre de l'UserForm.

A+

 

[patricktoulon]

ok
@job 75 merci
Lionel t'a encore fait une bêtise avec le copier coller toi
si job75 avec 2019 64 bits l'a , tu devrais l'avoir toi aussi c'est quoi ta version office ?

 

[fanfan38]

Exact j'ai aussi les 3 boutons... excel 2019 64 bits...
A+

 

[patricktoulon]

re
ok Merci Fanfan38
on peut donc considérer que l'utilisation des api au black( non déclarées) fonctionnent sur 64

voila quelques chose d’intéressant 😉

Lionel tu en est ou?

 

[Usine à gaz]

Re-Patrick,
Je dois mal avoir placé les codes car j'ai tjrs le même affichage 🙂

 

[patricktoulon]

teste celui la

 

[Usine à gaz]

affi

chage OK, photo ci-dessous :

 

[patricktoulon]

ah.... enfin
donc c'est bon dorénavant je vais utiliser cela pour mes distributions

 

[Usine à gaz]

lol j'avais mis tes codes partout là où il ne fallait pas 🙂