Bonjour,

Je cherche à modifier le formatage d'une série de cellule pour intégrer automatiquement l'année du système dans le formatage.
Ce code fonctionne seulement si je met l'année en "dur" dans la macro Selection.NumberFormat = "###0""/2020"""

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
Sub Changement_Année()
 
If Day(Date) = "01" And Month(Date) = "1" Then
 
Workbooks.Open "D:\amelioration ticket incident\Tableau de suivi des incidents vierge.xlsx"
    Columns("A:A").Select
    Selection.NumberFormat = "###0""/2020"""
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.AutoFill Destination:=Range("A3:A3000"), Type:=xlFillSeries
    Range("A3:A3000").Interior.Color = vbGreen
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "D:\amelioration ticket incident\Tableau de suivi des incidents " & Year(Date) & ".xlsx"
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
Else
MsgBox "fin macro"
 
End If
End Sub
Cette macro est destinée à mettre en forme un tableau le premier janvier de chaque année pour remplir les cellules en repartant du N°1.

Merci