Public Sub Eteindre_Windows(ByVal WithRestart As Boolean)
Dim Arg As String
If WithRestart Then
Arg = "rundll32.exe user.exe,restartwindows"
Else
Arg = "rundll32.exe user.exe,exitwindow"
End If
Call Shell(Arg)
End Sub
Sub EXEMPLE()
Call Eteindre_Windows(True) 'Windows redémarre
Call Eteindre_Windows(False) 'Sans redémarrage
End Sub