Horloge et Excel
Fermé
sonate86
Messages postés
110
Date d'inscription
mardi 19 décembre 2006
Statut
Membre
Dernière intervention
16 septembre 2021
-
12 janv. 2009 à 11:03
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 12 janv. 2009 à 14:20
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 12 janv. 2009 à 14:20
A voir également:
- Horloge et Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
2 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
12 janv. 2009 à 13:07
12 janv. 2009 à 13:07
Voilà un petit truc que j'ai fait
il est possible de l'adapter à peu de frais.... pour une date
' Quand on ferme, on désactive sinon.....Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="ActualiseTimer", Schedule:=False
End Sub
' à l'ouverture du fichier mais on peut le mettre sous l'action d'un bouton start / stop
Private Sub Workbook_Open()
Créer_Menu
' Ici je rajoute la création de mon menu perso puis je lance ma procédure
ActualiseTimer
End Sub
Sub ActualiseTimer()
' Sheets("feuil1").Calculate ' pour afficher la date et l'heure sur la "feuil1"
temps = Now + TimeValue("00:05:00")
Application.OnTime temps, "ActualiseTimer"
'cela permet d'excuter "majheure"toutes 5 minutes ou X temps
Application.OnTime temps, "Sauvegarde"
End Sub
' nota : on peut faire la même chose avec la date
il est possible de l'adapter à peu de frais.... pour une date
' Quand on ferme, on désactive sinon.....Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="ActualiseTimer", Schedule:=False
End Sub
' à l'ouverture du fichier mais on peut le mettre sous l'action d'un bouton start / stop
Private Sub Workbook_Open()
Créer_Menu
' Ici je rajoute la création de mon menu perso puis je lance ma procédure
ActualiseTimer
End Sub
Sub ActualiseTimer()
' Sheets("feuil1").Calculate ' pour afficher la date et l'heure sur la "feuil1"
temps = Now + TimeValue("00:05:00")
Application.OnTime temps, "ActualiseTimer"
'cela permet d'excuter "majheure"toutes 5 minutes ou X temps
Application.OnTime temps, "Sauvegarde"
End Sub
' nota : on peut faire la même chose avec la date
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 040
12 janv. 2009 à 14:20
12 janv. 2009 à 14:20
Salut,
Si tu souhaites exécuter un code à une date bien précise tu peux saisir cette date par exemple en A1 12/01/2009
et colles ce bout de code dans la thisworkbook et si tu ouvres ton fichier le même jour qui est saisi en A1 le code s'executera. il convient de changer cette date àprès exécution
Private Sub Workbook_Open()
If Range("A1") = Date Then
'code à exécuter
End If
End Sub
Si tu souhaites exécuter un code à une date bien précise tu peux saisir cette date par exemple en A1 12/01/2009
et colles ce bout de code dans la thisworkbook et si tu ouvres ton fichier le même jour qui est saisi en A1 le code s'executera. il convient de changer cette date àprès exécution
Private Sub Workbook_Open()
If Range("A1") = Date Then
'code à exécuter
End If
End Sub