OVH Cloud OVH Cloud

ExitWindows ou autre en vba

3 réponses
Avatar
John Fuss
Bonjour,

je voudrai arrêter windows via une macro Excel, en vb cela ne posait pas de
pbl mais en vba, j'ai testé plusieurs trucs mais rien n'y fait.

Quelqu'un à peut-être une ID ?

Merci d'avance

John Fuss.

3 réponses

Avatar
John Fuss
Il faut que ça fonctionne sous XP/2000&98

merci

John Fuss

"Pierre CFI" a écrit dans le message de
news:
bonjour
pour win xp au moins
sub fermer()
shell "shutdown"
end sub

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"John Fuss" a écrit dans le message de news:

Bonjour,

je voudrai arrêter windows via une macro Excel, en vb cela ne posait pas
de

pbl mais en vba, j'ai testé plusieurs trucs mais rien n'y fait.

Quelqu'un à peut-être une ID ?

Merci d'avance

John Fuss.








Avatar
Daniel.j
Sous xp
Sub xp()
Shell ("System32rundll32.exe user32.dll,LockWorkStation")
End Sub

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

"John Fuss" a écrit dans le message de news:

| Il faut que ça fonctionne sous XP/2000&98
|
| merci
|
| John Fuss
|
| "Pierre CFI" a écrit dans le message de
| news:
| > bonjour
| > pour win xp au moins
| > sub fermer()
| > shell "shutdown"
| > end sub
| >
| > --
| > Pierre CFI
| > Microsoft MVP Access
| >
| > Pour mieux utiliser microsoft.public.fr.access...
| > http://users.skynet.be/mpfa/charte.htm
| >
| > "John Fuss" a écrit dans le message de news:
| >
| > > Bonjour,
| > >
| > > je voudrai arrêter windows via une macro Excel, en vb cela ne posait pas
| > de
| > > pbl mais en vba, j'ai testé plusieurs trucs mais rien n'y fait.
| > >
| > > Quelqu'un à peut-être une ID ?
| > >
| > > Merci d'avance
| > >
| > > John Fuss.
| > >
| > >
| >
| >
|
|
Avatar
Michel Pierron
Salut John;
2 possibilités:

Sub WinExit()
With CreateObject("Shell.Application")
.ShutdownWindows
End With
End Sub

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Sub WinExit()
ExitWindowsEx 4, 0
End Sub

MP

"John Fuss" a écrit dans le message de
news:
Bonjour,

je voudrai arrêter windows via une macro Excel, en vb cela ne posait pas
de

pbl mais en vba, j'ai testé plusieurs trucs mais rien n'y fait.

Quelqu'un à peut-être une ID ?

Merci d'avance

John Fuss.