Microsoft 365 Minimizer UserForm

[youky(BJ)]

Bonjour à tous,
Dans le fichier joint je veux minimiser l'userform dans la barre des taches.
Cela fonctionne bien avec mon Excel2016 mais sur mon autre PC Excel365 que neni
Bug dans les API
D'ailleurs il mets des lignes en rouges
Merci d'avance
Bruno

 

[patricktoulon]

Bonsoir @youky(BJ)
et si je te donnais une solution prête l' emploi qui te dispense de déclaration d'api
t'en dis quoi?
allez prends un userform et colle lui ça dans un module

'**********************************************************************************
' __        _____  ___   .  ___         _____  ___             ___
'|__|  /\     |   |   |  | |     | /      |   |   | |   | |   |   | |\  |
'|    /__\    |   |---   | |     |/\      |   |   | |   | |   |   | | \ |
'|   /    \   |   |   \  | |___  |  \     |   |___| |___| |__ |___| |  \|

'***********************************************************************************
'                      COLLECTION  API AVEC MACRO4  EPISODE 1
'userform réductibe dans la barre des taches

Private Sub UserForm_Activate()
Dim HwnD&
'recupérer le handle de la fenêtre active
    HwnD = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & HwnD & ", " & -16 & ", " & (&H94C80080 Or &H94CF8080) & ")")
'   ici on va determiner sa position en mode reduit  c'est a dire en l'occurence dans la barre des tache
'   et non reduit sur la gauche audessus comme  à  l'origine
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & HwnD & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & (&H1 Or &H2 Or &H10 Or &H80) & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & HwnD & ", " & -20 & ", " & &H40101 & ")")        'api SetWindowLongA
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & HwnD & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & (&H1 Or &H2 Or &H10 Or &H40) & ")")

End Sub

 

[youky(BJ)]

Merci Patrick,
C'est parfait et impeccable. . . .
Il faut showmodale=false sinon on bosse plus.

Bruno