Bonjour,
Je souhaite faire une recopie de feuilles avec le code VBA la feuille de référence est le mois de septembre qui comporte une macro pour faire une toupie automatique pour faire défiler des minutes ce code ne se recopie pas. Pourriez-vous m'aider ?
Merci .
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Sub Copie_SEPT_AOUT()
'
' Copie_SEPT_AOUT Macro
'
'
    Application.Run "Déprotéger"
     Sheets("SEPT").Select
     Range("K1").Select
     ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,0)"
    Cells.Select
    Selection.Copy
 Dim ws As Worksheet
  For Each ws In Sheets(Array("OCT", "NOV", "DEC", "JANV", "FEV", "MARS", "AVRIL", "MAI", "JUIN", _
        "JUIL", "AOÛT"))
ws.Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 1
Range("K1").Select ' la date se change dans cette cellule avec la formule ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,1)"
Next ws
 
 
    Sheets("OCT").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,1)"
    Range("K3").Select
 
 
    Sheets("NOV").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,2)"
    Range("K3").Select
 
 
    Sheets("DEC").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,3)"
    Range("K3").Select
 
 
    Sheets("JANV").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,4)"
    Range("K3").Select
 
    Sheets("FEV").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,5)"
    Range("K3").Select
 
    Sheets("MARS").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,6)"
    Range("K3").Select
 
 
    Sheets("AVRIL").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,7)"
    Range("K3").Select
 
 
    Sheets("MAI").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,8)"
    Range("K3").Select
 
 
    Sheets("JUIN").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,9)"
    Range("K3").Select
 
    Sheets("JUIL").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,10)"
    Range("K3").Select
 
 
    Sheets("AOÛT").Select
    ActiveCell.FormulaR1C1 = "=EDATE(DATEDEB,11)"
 
 
Dim Fs As Worksheet
  For Each Fs In Sheets(Array("OCT", "NOV", "DEC", "JANV", "FEV", "MARS", "AVRIL", "MAI", "JUIN", _
        "JUIL", "AOÛT"))
Fs.Activate
Application.Run "impr"
ActiveWindow.ScrollRow = 1
Range("K3").Select
Next Fs
 
   Sheets("SEPT").Activate
   ActiveWindow.ScrollRow = 1
   Range("K3").Select
  Application.Run "Protéger"
End Sub