D
Dominique
Guest
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
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