XL 2010 ecran d'affichage mise a jour heure précise.

job75 à dit:

Bonjour clemfarfar,

Voyez l'Aide Microsoft sur Application.Ontime.

Quand on exécute dans la macro Workbook_Open :

VB:

Application.OnTime TimeValue("05:30:00"), "MAJ"

la macro "MAJ" sera exécutée tous les jours à 5h30 si on ne ferme pas Excel.

Ensuite il ne faut pas exécuter de nouveau cette instruction.

C'est facile de tester tout ça non ?

A+

Cliquez pour agrandir...

job75 à dit:

C'est facile de tester tout ça non ?

Cliquez pour agrandir...

clemfarfar à dit:

bonjour a tous,

je me suis fait une macro d'un affichage déporté.

L' excel est ouvert 24/24 7/7 , j'ai donc au début utilisé dans thisworkbook :

Private Sub Workbook_Open()
Application.OnTime TimeValue("05:30:00"), "mise a jour du fichier"
Application.OnTime TimeValue("13:00:00"), "mise a jour du fichier"
Application.OnTime TimeValue("18:00:00"), "mise a jour du fichier"
End Sub

Le lendemain, les mise a jour ne fonctionnent plus , normal, c'est une macro qui se lance a l'ouverture. Mais moi , je voudrais une macro qui se lance en continue avec ces heures la, et j'ai pensé faire
ceci dans le thisworkbook:

Private Sub Workbook_Open()
call activation
End Sub


ceci dans un module :
Sub activation()
Application.OnTime TimeValue("05:30:00"), "mise a jour du fichier"
Application.OnTime TimeValue("13:00:00"), "mise a jour du fichier"
Application.OnTime TimeValue("18:00:00"), "mise a jour du fichier"
End Sub


et dans la macro de mise a jour :

sub mise a jour du fichier()
...
...
.......
.........
call activation
end sub


Question :

Est ce que si je fais ce système, est ce que mes mises a jour se feront aux heures demandé tout les jours ?
Sinon ma dernière solution sera d'appeler tout les 4 heures ?

sub activation()
Application.OnTime Now + TimeValue("04:00:00") "mise a jour du fichier" ....
call activation
end sub

merci de me répondre dés que vous pouvez

Cliquez pour agrandir...