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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_open()
Call Copy
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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