Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
Voici comment faire pour fermer l'ordinateur à la fin d'une procédure.
Observe la structure que doit avoir ta macro : tu as un exemple avec
Sub Exemple_Macro
La ligne de code suivante affiche un message laissant moins d'une minute
à l'usager le cas échéant pour tout fermer :
Chemin = CheminSystem & "shutdown.exe /s"
Si tu désires que tout se ferme sans délai et sans message, remplace /s
par /p
Chemin = CheminSystem & "shutdown.exe /p"
Place ce qui suit dans un module standard :
'Dans le haut d'un module Standard, Déclaration de l'api
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
'------------------------------------------------------
Function CheminSystem()
Dim RetVal As Long
Dim SysDir As String
SysDir = Space$(256)
RetVal = GetSystemDirectory(SysDir, Len(SysDir))
If RetVal <> 0 Then
CheminSystem = Left$(SysDir, RetVal)
End If
End Function
'------------------------------------------------------
Sub Fermeture_Ordinateur()
Dim Chemin As String
Chemin = CheminSystem & "shutdown.exe /s"
Shell Chemin, vbHide
End Sub
'------------------------------------------------------
Sub Exemple_Macro()
Dim Gestion_Erreur As String
On Error GoTo Gestion_Erreur
'Tout le code a exécuté
'Et en dernière ligne appel de la fermeture de l'ordinateur
Call Fermeture_Ordinateur
Exit Sub
Gestion_Erreur:
Call Fermeture_Ordinateur
End Sub
'------------------------------------------------------
"M41" a écrit dans le message de groupe de
discussion :
4a6c1096$0$12623$
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
Voici comment faire pour fermer l'ordinateur à la fin d'une procédure.
Observe la structure que doit avoir ta macro : tu as un exemple avec
Sub Exemple_Macro
La ligne de code suivante affiche un message laissant moins d'une minute
à l'usager le cas échéant pour tout fermer :
Chemin = CheminSystem & "shutdown.exe /s"
Si tu désires que tout se ferme sans délai et sans message, remplace /s
par /p
Chemin = CheminSystem & "shutdown.exe /p"
Place ce qui suit dans un module standard :
'Dans le haut d'un module Standard, Déclaration de l'api
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
'------------------------------------------------------
Function CheminSystem()
Dim RetVal As Long
Dim SysDir As String
SysDir = Space$(256)
RetVal = GetSystemDirectory(SysDir, Len(SysDir))
If RetVal <> 0 Then
CheminSystem = Left$(SysDir, RetVal)
End If
End Function
'------------------------------------------------------
Sub Fermeture_Ordinateur()
Dim Chemin As String
Chemin = CheminSystem & "shutdown.exe /s"
Shell Chemin, vbHide
End Sub
'------------------------------------------------------
Sub Exemple_Macro()
Dim Gestion_Erreur As String
On Error GoTo Gestion_Erreur
'Tout le code a exécuté
'Et en dernière ligne appel de la fermeture de l'ordinateur
Call Fermeture_Ordinateur
Exit Sub
Gestion_Erreur:
Call Fermeture_Ordinateur
End Sub
'------------------------------------------------------
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de groupe de
discussion :
4a6c1096$0$12623$ba4acef3@news.orange.fr...
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
Voici comment faire pour fermer l'ordinateur à la fin d'une procédure.
Observe la structure que doit avoir ta macro : tu as un exemple avec
Sub Exemple_Macro
La ligne de code suivante affiche un message laissant moins d'une minute
à l'usager le cas échéant pour tout fermer :
Chemin = CheminSystem & "shutdown.exe /s"
Si tu désires que tout se ferme sans délai et sans message, remplace /s
par /p
Chemin = CheminSystem & "shutdown.exe /p"
Place ce qui suit dans un module standard :
'Dans le haut d'un module Standard, Déclaration de l'api
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
'------------------------------------------------------
Function CheminSystem()
Dim RetVal As Long
Dim SysDir As String
SysDir = Space$(256)
RetVal = GetSystemDirectory(SysDir, Len(SysDir))
If RetVal <> 0 Then
CheminSystem = Left$(SysDir, RetVal)
End If
End Function
'------------------------------------------------------
Sub Fermeture_Ordinateur()
Dim Chemin As String
Chemin = CheminSystem & "shutdown.exe /s"
Shell Chemin, vbHide
End Sub
'------------------------------------------------------
Sub Exemple_Macro()
Dim Gestion_Erreur As String
On Error GoTo Gestion_Erreur
'Tout le code a exécuté
'Et en dernière ligne appel de la fermeture de l'ordinateur
Call Fermeture_Ordinateur
Exit Sub
Gestion_Erreur:
Call Fermeture_Ordinateur
End Sub
'------------------------------------------------------
"M41" a écrit dans le message de groupe de
discussion :
4a6c1096$0$12623$
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale
du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à
une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
par là:
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#exemples_api
--
lSteph
M41 a écrit :Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
par là:
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#exemples_api
--
lSteph
M41 a écrit :
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour,
par là:
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#exemples_api
--
lSteph
M41 a écrit :Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonsoir,
Tu écris : "... pour se fermer ce programme doit aussi lancer la
fermeture totale
du PC... "
Quel est le rapport ? On ne ferme pas une application en fermant
l'ordinateur, bien que dans ce style on peu aussi retirer la batterie et
ouvrir le disjoncteur !
Fin du programme >
reset
end
------------------
J'ai ça pour éteindre :
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
Dim retour As Long
retour = ExitWindowsEx(1, 0)
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"M41" a écrit dans le message de
news:4a6c1096$0$12623$Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonsoir,
Tu écris : "... pour se fermer ce programme doit aussi lancer la
fermeture totale
du PC... "
Quel est le rapport ? On ne ferme pas une application en fermant
l'ordinateur, bien que dans ce style on peu aussi retirer la batterie et
ouvrir le disjoncteur !
Fin du programme >
reset
end
------------------
J'ai ça pour éteindre :
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
Dim retour As Long
retour = ExitWindowsEx(1, 0)
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de
news:4a6c1096$0$12623$ba4acef3@news.orange.fr...
Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
Bonsoir,
Tu écris : "... pour se fermer ce programme doit aussi lancer la
fermeture totale
du PC... "
Quel est le rapport ? On ne ferme pas une application en fermant
l'ordinateur, bien que dans ce style on peu aussi retirer la batterie et
ouvrir le disjoncteur !
Fin du programme >
reset
end
------------------
J'ai ça pour éteindre :
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
Dim retour As Long
retour = ExitWindowsEx(1, 0)
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"M41" a écrit dans le message de
news:4a6c1096$0$12623$Bonjour
Un programme Excel - VBA doit fonctionner très longtemps puis sauvegarder
ses données avant de se fermer tout seul.
Problème : pour se fermer ce programme doit aussi lancer la fermeture
totale du PC.
Comment avec VBA lancer la fermeture automatique (fin de calculs ou suite
à une erreur détectée) de Windows et du PC avec fermeture sans sauvegarde
(elle a été faite avant pour les donnnées) de tous les logiciels ouverts
dont Excel ?
Lancement d'API ou d'un script par VBA ? Comment ?
Cordialement
M41
| J'ai condensé un peu. Merci
| Question : qu'apporte la ligne ?
| Dim Gestion_Erreur As String
J'ai l'habitude de déclarer les variables d'une procédure... Et toi ?
Si tu l'enlèves, ça va fonctionner quand même !
| J'ai condensé un peu. Merci
| Question : qu'apporte la ligne ?
| Dim Gestion_Erreur As String
J'ai l'habitude de déclarer les variables d'une procédure... Et toi ?
Si tu l'enlèves, ça va fonctionner quand même !
| J'ai condensé un peu. Merci
| Question : qu'apporte la ligne ?
| Dim Gestion_Erreur As String
J'ai l'habitude de déclarer les variables d'une procédure... Et toi ?
Si tu l'enlèves, ça va fonctionner quand même !