Enregistreur de Macro :Code VBA pour incrémenter des dates sur une periode de 1 mois

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:

---

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

---

Bonjour,

Travailler avec les cellules est rarement indispensable et souvent d'erreur

Code:

---

1 2	Columns("A:A").EntireColumn.Select Selection.Delete Shift:=xlToLeft

---

S'écrit simplement:

Code:

---

Columns("A:A").EntireColumn.Delete Shift:=xlToLeft

---

Pour tes histoires de dates, ce n'est vraiment pas clair du tout ce que tu cherches à faire, des captures d'écran avant/après seraient les bienvenues.
A tout hasard, si tu souhaites remplacer les dates en dur dans ton code par la date du jour tu peux utiliser la fonction date qui renvoie la date du jour, combinée a un replace vu que tes onglets utilisent "_" et non "/" comme séparateur de date:

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'23_08_19'!C[-1],1,FALSE)"

---

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'" & Replace(Date, "/", "_") & "'!C[-1],1,FALSE)"

---

halaster08,

Désolé suis novice en VBA. En fait je joins un exemple du fichier de Traitement. Voici les actions que j'effectue dans l'ordre:

1/ Je copie les résultats de ma requête dans un nouvel onglet du fichier source Excel.
2/J'ouvre l'enregistreur de macro (afin d'enregistrer toutes mes actions et les répeter via la macro)
3/Je réalise une RechercheV sur 1 période d'1 mois sur les onglets précédents pour supprimer toutes les lignes qui apparaissent dans le nouvel onglet
4/Ensuite je ferme la macro
5/le jour suivant(3 jours plus tard) je refais la manipulation mais cette fois ci en lancant l'enregistreur Macro=> sauf que la macro ne prend pas en compte le dernier onglet précédemment enregistré car elle reste figée sur les ongles de la période sélectionnée lors de l'enregistrement de la Macro.

Mon souci est de trouver un moyen pour prendre en compte la date de l'onglet précédent et de decaler la periode toujours sur un mois calendaire. J'espère que je me fait mieux comprendre.Pièce jointe 499737