Fonction OnTime

[Dominique]

Bonjour, comment faire pour que cette macro ou bien une autre fonctionne tous les jours à la même heure et ceci toute seule ? Je précise que je dois pour l'instant la réinitialiser chaque fois

Sub heure()
Application.OnTime TimeValue("17:30:00"), "Macro2"

End Sub

Private Sub Macro2()
Sheets("Calendrier").Select
Range("A2:B303").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E3").Select
End Sub

 

[Lexikalacon]

Salut Dominique ,

il est peut etre plus facile de creer une tache qui va lancer Excel et ton fichier , en mettant la macro dans workbookopen

Outils systeme , plannification de taches .

C'est ce que je fais , et cela marche très bien

Steph