Bonjour,

J'ai enregistré automatiquement sur Macro Excel des actions hebdomadaires afin de ne pas répéter les tâches à chaque fois. (2 fois par semaine)
Les onglets sont numérotées à la date du jour. Sur ce exemple les dates partent du 23-08-19 au 13-08-19. Le souci est que si je lance la macro aujourdhui 27-08-19,
le traitement ne prend pas en compte la date du 26-08-19 car elle reste figée entre le 23-08-19 au 13-08-19.
J'aimerais savoir comment faire évoluer la période de date concernée? Cad enregistrer automatiquement les dates du 26-08-19, du 27-08-19 etc...
ou pour faire simple via un code VBA, trouver un moyen de remplacer les dates sur une période décalée de 1 mois à chaque nouvel enregistrement.
Merci d'avance pour votre aide
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
 
 
Sub Macro_AF_Imp()
 ActiveCell.Select
    ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
        DisplayAsIcon:=False
    ActiveCell.Columns("A:A").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.AutoFilter
    ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'23_08_19'!C[-1],1,FALSE)"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A9"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A9").Select
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'20_08_19'!C[-1],1,FALSE)"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A9")
    ActiveCell.Range("A1:A9").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'13_08_19'!C[-1],1,FALSE)"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A9")
    ActiveCell.Range("A1:A9").Select