Supression croix excel

[Maxime]

Bonjour tout le monde,
pourquoi ce code ne marche-t il pas?
quelqu'un peut il m'aider?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub






Private Sub Workbook_Open()
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

End Sub

merci!!
Max 😉

 

[copayo]

salut,

rajoute ca dans un module avec ta macro a la suite ca devrait marcher

Option Private Module
Declare Function GetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib 'User32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

[Maxime]

Re!
J'ai essayé et ca me dit : option private module non permise dans un module objet!
Qu'en penses tu?
Max 😉

 

[copayo]

regarde dans ce fichier :

[file name=tutu_20060602130628.zip size=7097]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tutu_20060602130628.zip[/file]

 

[Maxime]

Merci!
Ca marche!
Max 😉