Besoin d'un coup de main pour comprendre une macro

[Pino12]

Bonjour à tous,

J'aimerai savoir où le code va chercher les fichiers commençant par "Jeunesse S" pour alimenter mon fichier. Dans les lignes suivantes je ne sais pas si la macro cherche dans un dossier spécifique ou dans l'ensemble des fichiers :

'Sub Ventes_et_stocks_test()

Dim f$, h&, c As Range, fich$
f = "Ventes et Stocks Magasins"
h = Application.Match("TOTAL", [C:C], 0) - 7 'la hauteur du tableau peut varier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si des fichiers n'existent pas
For Each c In Range("E6", Cells(6, Columns.Count).End(xlToLeft))
If c = "Vtes" Then
fich = "Litté S" & Val(Replace(c(0, 0), "Semaine", "")) & ".xlsx"
c(2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'[" & fich & "]" & f & "'!R4C1:R20000C22,21,0),0)"
c(2, 2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'[" & fich & "]" & f & "'!R4C1:R20000C22,22,0),0)"
End If
Next


'
End Sub

J'aimerai que le code comprenne qu'il doit chercher dans un dossier intitulé "H:\Data Sharing\Archives semaines antérieurs" mais je n'arrive pas à le rédiger correctement..
Merci d'avance pour vos réponses,

Pino

 

[job75]

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

Bonsoir,

Ce fil est inutile, il suffisait de faire un UP sur celui-ci :

https://www.excel-downloads.com/threads/besoin-dun-coup-de-main-pour-une-macro.222896/

A+