Perdu barre windows

bonsoir le forum

perdu barre windows apres une manipe

mais laquelle ????????

cordialement

aiglon74

Bonjour,

Oui, laquelle ?

eric

re

la barre en bas de l'ordi

j'appui sur le bouton windows pour appeler la barre

mais la rien

Hello,

Et avec ça ?

Private Declare PtrSafe Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_HIDEWINDOW = &H80

Function HideTaskbar()
 Dim hdle As Long

 hdle = FindWindowA("Shell_traywnd", "")
 SetWindowPos hdle, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
 End Function

Function UnhideTaskbar()
 Dim hdle As Long

 hdle = FindWindowA("Shell_traywnd", "")
 SetWindowPos hdle, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
 End Function

Sub Macro1()
'
HideTaskbar
UnhideTaskbar
End Sub

Chez moi, ça la fait disparaitre et réapparaitre.

re

ok j'ai trouver

ctrl + fleche+echap gestionnaire des taches apparaît

onglet detail

explorer.exe clic droit fin de tache

arrêter le processus

fichier

executer nouvelle tache

taper

explorer.exe

c bon

avec ton code je bloque sur cette ligne

hdle = FindWindowA("Shell_traywnd", "")

A+

et merci pour ton aide

aiglon74