lancement macro automatique
bonjour,
Je voudrais que ma macro se lance toutes les 15 min, et qu'elle se lance même si mon classeur est reduit et pendant que je travaille sur un autre excel.
Merci d'avance pour votre aide.
Code:
1
2
3
| Private Sub Workbook_open()
Call Copy
End Sub |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Sub Update()
Application.OnTime Now + TimeValue("00:15:00"), "Update"
Call Copy
End Sub
Sub auto_open()
Update
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime Now + TimeValue("00:15:00"), "Update", Schedule:=False
End Sub
Sub Copy()
Dim a As Integer
Sheets("Matrix").Select
Range("A24:F24").Select
Selection.Copy
Sheets("Data").Select
Range("A2:F2").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Data").Select
Range("B1").Select
a = Range("B1", Selection.End(xlDown)).Cells.Count
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("B1" & ":C" & a)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("B1:B" & a, "D1:D" & a)
End Sub |
