Besoin d'un coup de main pour une macro :)

[Pino12]

Bonjour à tous,

Je souhaite appliquer une macro à un tableau afin d'extraire des données hebdomadaires. Ainsi pour une semaine S23 ma macro récupérerait des données d'un fichier "Jeunesse S23.xlsx", pour la semaine semaine S24 de "Jeunesse S24.xlsx" etc..
Pour le moment j'arrive à faire marcher cette macro mais seulement pour une semaine donnée. Par exemple pour S23 j'applique :

Sub Ventes_et_stocks_test()

' Test Macro Ventes et Stocks

Range("E7").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-4],'[Jeunesse S23.xlsx]Ventes et Stocks Magasins'!R4C1:R20000C22,21,FALSE)"
Range("E7").Select
Selection.AutoFill Destination:=Range("E7:E102"), Type:=xlFillDefault

Range("F7").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-5],'[Jeunesse S23.xlsx]Ventes et Stocks Magasins'!R4C1:R20000C22,22,FALSE)"
Range("F7").Select
Selection.AutoFill Destination:=Range("F7:F102"), Type:=xlFillDefault

End Sub

J'aimerai pouvoir effectuer cette commande en remplissant toute les semaines d'un coup mais c'est un vrai casse-tête Quelqu'un aurait-il une idée de comment s'y prendre ?

En PJ vous trouverez le fichier supposé recevoir les données extraites Merci d'avance !

 

[Pino12]

Re : Besoin d'un coup de main pour une macro

J'ai oublié de préciser que le fichier de référence est bien ordonné et que son chemin est correct