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.
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. | > > | > > | > | > | |
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" <newskob650@yahoo.fr> a écrit dans le message de news:
e7Qg1ZgbDHA.2928@tk2msftngp13.phx.gbl...
| Il faut que ça fonctionne sous XP/2000&98
|
| merci
|
| John Fuss
|
| "Pierre CFI" <NO_SPAMpierre.salaun@wanadoo.fr> a écrit dans le message de
| news: ubYn6YgbDHA.2672@tk2msftngp13.phx.gbl...
| > 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" <newskob650@yahoo.fr> a écrit dans le message de news:
| > uDLBp8fbDHA.1280@tk2msftngp13.phx.gbl...
| > > 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.
| > >
| > >
| >
| >
|
|
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. | > > | > > | > | > | |
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.
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" <newskob650@yahoo.fr> a écrit dans le message de
news:uDLBp8fbDHA.1280@tk2msftngp13.phx.gbl...
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.
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.