reste à supprimer la barre ou il y a la croix et le logo"excel"

[Petchy]

Bonjour le Forum,

voila,dans mon application j'ai créer une barre d'outils personnaliser ou je supprime les barres traditionnelles d'EXCEL,ils me reste à supprimer la barre ou il y a la croix et le logo"excel",comment faire?

 

[Delors]

Hi Petchy,
teste ce petit code:

Declare Function GetActiveWindow32 Lib "USER32" Alias _
"GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "USER32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Sub ChangeXLIcon()
Dim h32NewIcon As Long
Dim h32WndXLMAIN As Long
h32NewIcon = ExtractIcon32(0, "Notepad.exe", 0) 'à modifier avec l´image correspondande
h32WndXLMAIN = GetActiveWindow32()
SendMessage32 h32WndXLMAIN, &H80, 1, h32NewIcon 'Icon big
SendMessage32 h32WndXLMAIN, &H80, 0, h32NewIcon 'Icon small
End Sub

 

[Delors]

encore une autre version de code qui fonctionne également:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Private Const WM_SETICON = &H80
Private Const ICON_BIG = 1
Private Const ICON_SMALL = 0

Sub SetExcelWindowIcon()
Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String

'Use whichever icon file you want to use here
strIconPath = "G:\tonImage.extension" 'repertoire où se trouve ton image
lngXLHwnd = FindWindow("XLMAIN", Application.Caption)

lngIcon = ExtractIcon(0, strIconPath, 0)

SendMessage lngXLHwnd, WM_SETICON, ICON_SMALL, lngIcon

End Sub

 

[Ti]

Même si Delors ne répond pas tout à fait à la question de Pecthy, et comme je le disais à ce dernier sur le forum Veriti, je ne crois pas que ce soit une bonne idée de supprimer toutes les barres Excel. Le moindre plantage, et c'est la galère assurée pour tous ceux qui n'ont pas une très bonne connaissance d'Excel (et encore...)