Depart differé de programe VBA

maximeedc Messages postés 3 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010 - 8 avril 2010 à 12:30
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 8 avril 2010 à 13:48
Bonjour,
Je suis débutant en VBA et je tombe sur un problème. Je cherche à calculer une feuille le matin a 8h le soir a 18h, tous les lundis a 8h et tous le 1er du mois a 8h, ensuite je lance une séquence qui me fais des copier coller pour garder en Historique (ca j'ai réussi). Sachant que je fais des copier coller il faut que la séquence se lance qu'une seul fois a chaque fois, sinon mon historique sera biaiser.
Merci beaucoup

6 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 avril 2010 à 13:05
le matin a 8h le soir a 18h, tous les lundis a 8h et tous le 1er du mois a 8h,


le lundi ou le premier du mois peu importe, si tu cherches a le faire deja tous les matins...

que veux tu dire par "calculer une feuille" ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
maximeedc Messages postés 3 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010
8 avril 2010 à 13:17
Merci pour ta reponse. Je vais essaye d'etre plus precis. j'ai fais un code que je dois lancer a un moment precis dans la journée une seul fois. En meme Temps j'aimerai pouvoir calculer la feuille (shiftF9) en permanence (ou toutes les 10s). le code que j'ai utilisé est le suivant.


Sub AutoSave()
Do
If Cells(2, 6) > 1 Then
Exit Do
End If
PauseTime = 3600 ' Définit la durée.
Start = Timer ' Définit l'heure de début.

Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Range("A5:N100").Calculate
Range("B2").Calculate
If (Cells(2, 2) = True) Then
Call CopyData
ActiveWorkbook.Save
End If
Loop
End Sub

Le probleme de ce code est qu'il s'arrete pour une raison que j'ignore ou bout de quelque heure
Merci
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 avril 2010 à 13:22
le Timer se remet à 0 a minuit...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 avril 2010 à 13:22
mais ta solution n'est de toute facon pas ideale...

passer par l'API SetTimer

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
maximeedc Messages postés 3 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 8 avril 2010
8 avril 2010 à 13:31
Excuse mon ignorance mais la je suis un peut perdu.l'API SetTimer c'est quoi?
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 avril 2010 à 13:48
voir

www.vbfrance.com/recherche.aspx?tr=source&r=Timer+VBA&dotnet=0

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
0
Rejoignez-nous