Salut,
Voici le code, atttention à mettre une porte de sortie sur ce USF (accès à une feuille par ex par bouton ou label ou ce que tu veux...
A insérer dans le USF de départ (ex nom = USF1) :
Private Sub UserForm_Initialize()
Dim hwnd As Long, Style As Long
hwnd = FindWindow(vbNullString, Me.Caption)
Style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, Style
DrawMenuBar hwnd
End Sub
puis dans le workbook :
Private Sub Workbook_Open()
USF1.Show
End sub
Bon courage
Message édité par: xc2one, à: 09/03/2005 15:50