userform et acces feuille excel

[nina71287]

Message supprime

 

[roro69]

Re : userform et acces feuille excel

Bonsoir colle ce bout de code qui te permettra de réduire l'usf dans la barre des taches:

Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable& )
Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex& )
Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong& )

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

A++

 

[Guiv]

Re : userform et acces feuille excel

Bonsoir nina71287, roro69 (que de chiffres!! )
Excellent ce code roro69, j'y comprends rien, mais ça marche et je le mets de côté!
Cordialement,
Guiv 007

 

[nina71287]

Re : userform et acces feuille excel

merci finalement j'avais bidouiller en rajoutant un autre userform minuscule