Arret de l'ordinateur

Bonjour,
Differente procedure à essayer !
Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Sub WinExit2()
ExitWindowsEx 4, 0
End Sub

Sub xp()
Shell ("System32rundll32.exe user32.dll,LockWorkStation")
End Sub

Sub WinExit() 'marche bien sous XP
With CreateObject("Shell.Application")
.ShutdownWindows
End With
End Sub

Sub ExitWindows9598() 'ok
ValRetour = Shell("C:WINDOWSrundll32.exe user.exe,exitwindows")
End Sub


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"Patrick" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
0a5301c3a9d0$7c56a250$a501280a@phx.gbl...
| Bonjour a tous:
|
| A partir de VBA j'aimerais arreter completement le micro
|
| But: obtenir la boite " arreter ou redemarrer
| l'ordinateur" et bien sur forcer l'arret total
|
| Ps: ctrl+esc ne marche pas et evidement actionner la
| touche windows encore mois !!!!
|