Re Salut
Oui STéphane a raison on peut du Non-Modal apparemment sous 97 sous réserve que cette API fonctionne, je viens de trouver ceci de Stephen Bullen.
C'est une API à mettre en tête du Private Module en question... Je viens d'essayer sous 2000 çà tourne !
A voir sous XL 97...
Option Explicit ' (USERFORM NON-MONDAL sous XL97 De Stephen Bullen)
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "User32" _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
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
Dis nous si celà marche !!!!
Bon Aprèm
@+Thierry