automatisation Excel VBA et Windows? possible?

[JJ1]

Bonjour,
Juste une question:

Le soir je lance une macro de forme For i =1 to 1000 Action Next

Souvent je dors.......et je retrouve le micro allumé au petit matin !

Est-il possible de:

Soit après une durée fixée ou à une heure précise de:
-faire ECHAP (au cas où la macro ne serait pas finie)
-Fin
-sauvegarder le fichier Excel (sinon ça sert à rien.....)
-quitter Excel

et le plus difficile, arreter Windows XP et Shutdown!!!!

Merci
JJ1

 

[Creepy]

Re : automatisation Excel VBA et Windows? possible?

RE All,

Vi je pense aussi qu'il faut rajouter le jour.

@+

Creepy

 

[porcinet82]

Re : automatisation Excel VBA et Windows? possible?

Heuuu, là je ne vous suis pas, ca va changer quoi de mettre le jour, étant donné que l'on teste seulement l'heure ???

@+

 

[Papaye]

Re : automatisation Excel VBA et Windows? possible?

Si, on lance la macro à 22h, 22h>01h, donc ta macro va lancer l'arrêt dès le début.
Je pensais qu'il fallait lire le jour du lancement du micro (genre Date_Depart=day(Now())
Et écrire dans la macro :
if Now()>Date_Depart +1 +timevalue("01:00:00") then ...
càd si on dépasse la date de lancement de la macro (la veille, càd le lendemain) + 1 heure on arrête ...

 

[Papaye]

Re : automatisation Excel VBA et Windows? possible?

oulàlà ... même moi je ne comprend rien à ce que j'ai écrit !
Grosso modo :
on lance la macro le 10/08 à 22h,
on veut qu'elle s'arrête le 11/08 à 01h
Si on ne fait le test que sur l'heure la macro va s'arrêter au premier passage du for.
On doit donc rajouter comme condition d'arrêt que l'heure présente doit être > à 01h mais que l'on soit également le lendemain.

C'est plus claire ?

 

[porcinet82]

Re : automatisation Excel VBA et Windows? possible?

Oulala, je vais retourner me coucher tranquillement pour eviter de poster trop de conneries.

Merci Papaye de cet eclairsissement, c'etait pourtant simple, mais mon cerveau est parti en vacances, du coup je me retrouve avec un QI de poulpe !!!

@+

 

[Papaye]

Re : automatisation Excel VBA et Windows? possible?

J'en connais un (de poulpe) à qui cela fera plaisir ...

 

[PascalXLD]

Re : automatisation Excel VBA et Windows? possible?

Bonjour

autre petit souci si la macro se lance à 22h00 et qu'il n'y a pas de problème disons qu'elle termine sa boucle à 23h00 et bien il ne testera plus l'heure et donc ne fermera rien du tout. En tout cas je crois bin...

Bonne journée

 

[PascalXLD]

Re : automatisation Excel VBA et Windows? possible?

Re

peut-être ainsi

Sub test()
Dim i&
Application.OnTime TimeValue("01:00:00"), "Extinction" 
For i = 1 To 1000

        'ton code

Next i
End Sub  

Sub Extinction()
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Moi\Bureau\Classeur1.xls"
Shell "Shutdown -t 60 -s"
End sub

Bon j'ai pas testé

 

[JJ1]

Re : automatisation Excel VBA et Windows? possible?

Bonsoir à tous, vos réponses sont super mais faudra me mettre le code pour le jour...(date-heure) merci

et je répondrai aussi à Pascal l'inverse: la macro ne sera peut être pas finie, donc touches ECHAP--FIN--et sauvegarde ?

non?

merci encore et SVP vous me mettrez un code complet à tester!!!!!!

 

[PascalXLD]

Re : automatisation Excel VBA et Windows? possible?

Re

en prinicpe dans mon code macro terminée ou pas il va lancer la macro qui va fermer ton classeur et le pc
A tester

 

[JJ1]

Re : automatisation Excel VBA et Windows? possible?

Bonjour à tous,
J'avais promis de vous tenir au courant de l'automatisation de la fermeture de Windows pour les couche-tôt qui lancent une macro le soir.....rrrr rrrr et ça ronfle en plus!

Chose faite!
Voici le code saisi:

Sub Automate()
Dim i&, ligne As Integer, a As Integer, j As Integer, b As Integer
On Error Resume Next
Application.OnTime TimeValue("23:10:00"), "Extinction"
For ligne = 1 To 500
'mon code
End If
Next ligne
End Sub
Sub Extinction()
ActiveWorkbook.SaveAs Filename:="C:\Clas1.xls"
Shell "Shutdown -t 60 -s"
End Sub

Conclusion:
A 23H, hier soir, j'ai lancé la macro avec extinction prévue à 23H10.
A 23H12, rien! la macro tournait...tournait...(rien à voir avec Evelyne Leclerc...)

J'ai fait "Echap"
rien
A nouveau "Echap"
puis Fin pour arrêter la macro

Le fichier a été sauvegardé aussitôt en "Clas1"

Windows (j'ai XP-SP2-Excel2003, Norton et Pestparol désactivés pour la macro) m'a affiché son panneau avec la croix rouge "Arrêt du système initié par Office..."
Attente 60 sec
puis deconnexion et fermeture de Windows
OK

Le problème est donc d'arrêter la macro (2 fois Echap +Fin) sinon le programme Extinction ne se lance pas...Le reste est correct.
Bon dimanche
JJ