Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Salut angus; Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long _ , ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Workbook_Open() Dim hndMe As Long, lngMe As Long hndMe = FindWindow(vbNullString, Application.Caption) lngMe = GetWindowLong(hndMe, -16) And Not &HC00000 Call SetWindowLong(hndMe, -16, lngMe) Call DrawMenuBar(hndMe) End Sub
MP
"angus" a écrit dans le message de news:12ab201c3c0b8$47623600$ Bonjour Comment faire pour faire disparaître la barre de titre Excel. Merci
Salut angus;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long _
, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Private Sub Workbook_Open()
Dim hndMe As Long, lngMe As Long
hndMe = FindWindow(vbNullString, Application.Caption)
lngMe = GetWindowLong(hndMe, -16) And Not &HC00000
Call SetWindowLong(hndMe, -16, lngMe)
Call DrawMenuBar(hndMe)
End Sub
MP
"angus" <angus@discussions.microsoft.com> a écrit dans le message de
news:12ab201c3c0b8$47623600$a601280a@phx.gbl...
Bonjour
Comment faire pour faire disparaître la barre de titre
Excel.
Merci
Salut angus; Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long _ , ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Workbook_Open() Dim hndMe As Long, lngMe As Long hndMe = FindWindow(vbNullString, Application.Caption) lngMe = GetWindowLong(hndMe, -16) And Not &HC00000 Call SetWindowLong(hndMe, -16, lngMe) Call DrawMenuBar(hndMe) End Sub
MP
"angus" a écrit dans le message de news:12ab201c3c0b8$47623600$ Bonjour Comment faire pour faire disparaître la barre de titre Excel. Merci
gilbert
Bonjour
tu vas dans
outils / personnaliser onglet barre d'outils et tu coches plein écran
procédure inverse pour revenir
@+++ -- supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement . SVP
"angus" a écrit dans le message de news: 12ab201c3c0b8$47623600$ Bonjour Comment faire pour faire disparaître la barre de titre Excel. Merci
Bonjour
tu vas dans
outils / personnaliser
onglet barre d'outils
et tu coches plein écran
procédure inverse pour revenir
@+++
--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"angus" <angus@discussions.microsoft.com> a écrit dans le message de news:
12ab201c3c0b8$47623600$a601280a@phx.gbl...
Bonjour
Comment faire pour faire disparaître la barre de titre
Excel.
Merci