automatisation Excel VBA et Windows? possible?

C

Creepy

XLDnaute Accro

• 10 Août 2006

• #16

Re : automatisation Excel VBA et Windows? possible?

RE All,

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

@+

Creepy

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 10 Août 2006

• #17

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 ???

@+

 

Vote positif 0 Vote négatif

Papaye

XLDnaute Occasionnel

• 10 Août 2006

• #18

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 ...

 

Vote positif 0 Vote négatif

Papaye

XLDnaute Occasionnel

• 10 Août 2006

• #19

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 ?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 10 Août 2006

• #20

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 !!!

@+

 

Vote positif 0 Vote négatif

Papaye

XLDnaute Occasionnel

• 10 Août 2006

• #21

Re : automatisation Excel VBA et Windows? possible?

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Août 2006

• #22

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Août 2006

• #23

Re : automatisation Excel VBA et Windows? possible?

Re

peut-être ainsi

Code:

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é

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 10 Août 2006

• #24

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!!!!!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Août 2006

• #25

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

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 3 Septembre 2006

• #26

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

 

Vote positif 0 Vote négatif