Bonjour anonymous :( Regardes par ici il y a surement quelque chose : http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm Cordialement Pascal
a écrit dans le message de news:0c0e01c3a463$d3b025c0$ Bonjour,
Depuis un fichier excel, je lance une procédure VBA qui fait des sauvegardes, de mon disque dur vers un serveur.
L'opération est assez longue aussi, je la laisse tourner en partant du boulot le soir.
J'aimerai pouvoir via VB, redémarrer mon poste, ou fermer ma session windows.. Comment faire ?
NB : Excel 97 - Win NT4
papou
Tiens je l'avais chez moi (ici fermeture de session) : Sub Fermer() Const LOGOFF = 0 Const SHUTDOWN = 1 Const REBOOT = 2 Const FORCE = 4 Const POWEROFF = 8 Set wmi = GetObject("winmgmts:{(Shutdown)}") Set objset = wmi.instanceSof("win32_operatingsystem") For Each obj In objset Set os = obj: Exit For Next os.win32shutdown LOGOFF End Sub
"papou" <nspm> a écrit dans le message de news:
Bonjour anonymous :( Regardes par ici il y a surement quelque chose : http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm Cordialement Pascal
a écrit dans le message de news:0c0e01c3a463$d3b025c0$ Bonjour,
Depuis un fichier excel, je lance une procédure VBA qui fait des sauvegardes, de mon disque dur vers un serveur.
L'opération est assez longue aussi, je la laisse tourner en partant du boulot le soir.
J'aimerai pouvoir via VB, redémarrer mon poste, ou fermer ma session windows.. Comment faire ?
NB : Excel 97 - Win NT4
Tiens je l'avais chez moi (ici fermeture de session) :
Sub Fermer()
Const LOGOFF = 0
Const SHUTDOWN = 1
Const REBOOT = 2
Const FORCE = 4
Const POWEROFF = 8
Set wmi = GetObject("winmgmts:{(Shutdown)}")
Set objset = wmi.instanceSof("win32_operatingsystem")
For Each obj In objset
Set os = obj: Exit For
Next
os.win32shutdown LOGOFF
End Sub
"papou" <nspm> a écrit dans le message de
news:ensz1nGpDHA.3256@tk2msftngp13.phx.gbl...
Bonjour anonymous :(
Regardes par ici il y a surement quelque chose :
http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement
Pascal
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:0c0e01c3a463$d3b025c0$a301280a@phx.gbl...
Bonjour,
Depuis un fichier excel, je lance une procédure VBA qui
fait des sauvegardes, de mon disque dur vers
un serveur.
L'opération est assez longue aussi, je la laisse tourner
en partant du boulot le soir.
J'aimerai pouvoir via VB, redémarrer mon poste, ou fermer
ma session windows.. Comment faire ?
Tiens je l'avais chez moi (ici fermeture de session) : Sub Fermer() Const LOGOFF = 0 Const SHUTDOWN = 1 Const REBOOT = 2 Const FORCE = 4 Const POWEROFF = 8 Set wmi = GetObject("winmgmts:{(Shutdown)}") Set objset = wmi.instanceSof("win32_operatingsystem") For Each obj In objset Set os = obj: Exit For Next os.win32shutdown LOGOFF End Sub
"papou" <nspm> a écrit dans le message de news:
Bonjour anonymous :( Regardes par ici il y a surement quelque chose : http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm Cordialement Pascal
a écrit dans le message de news:0c0e01c3a463$d3b025c0$ Bonjour,
Depuis un fichier excel, je lance une procédure VBA qui fait des sauvegardes, de mon disque dur vers un serveur.
L'opération est assez longue aussi, je la laisse tourner en partant du boulot le soir.
J'aimerai pouvoir via VB, redémarrer mon poste, ou fermer ma session windows.. Comment faire ?
