Macro Excel bouclant sur un sharepoint et ramenant la contenu de plusieurs fichiers

[kergedoul]

Bonjour
Je souhaiterais faire un macro qui :
boucle et parse un sharepoint (accessible depuis le menu "ouvrir, fichier, emplacement réseau"
En fonction d'un <nom_de_fichier> contenu ds mon classeur "capa.xls celluleB2"
ouvre le classeur au nom contenu ds la cellule "capa.xls celluleB2"
filtre la colonne A de <nom_de_fichier> avec la chaine de caractère "Validée"
et ramène les lignes avec les valeurs contenues ds les colonne <nom_de_fichier> K L O W dans les colonnes de "capa.xls celluleC2,E2,D2,F2"

Ce ferait un truc du style :
While capa.xls celluleA1:A300<>""
do
vlookup(capa.xls celluleA1;
ChDir _ "https://sharepoint.com/Dir1(nom du rep connu)/Dir2(nom du rep connu)/*"
Workbooks.Open Filename:= _ "https://sharepoint.com/Dir1(nom du rep connu)/Dir2(nom du rep connu)/<capa.xls celluleA2>/<capa.xls celluleB2.xls>"
Selection.AutoFilter Field:=1, Criteria1:="Validée"
;..?

Workbooks.Open Filename:= _
"https://sharepoint.com/Dir1(nom du rep connu)/<capa.xls celluleA2>/<capa.xls celluleB2.xls>"
Selection.AutoFilter Field:=1, Criteria1:="Validée"
Range("K16:K28").Select
Selection.Copy
Range("L28").Select
ActiveWindow.SmallScroll Down:=-24
Range("K16:L28").Select
Range("L28").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("<capa.xls celluleC2.xls>").Activate
Selection.Insert Shift:=xlDown
Windows("<capa celluleB2.xls>").Activate
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.SmallScroll Down:=9
Range("O28").Select
ActiveWindow.SmallScroll Down:=-18
Range("O16:O28").Select
Range("O28").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Capa.xls.xls").Activate
Range("E4").Select
ActiveSheet.Paste
Windows("capa.xls celluleB2.xls").Activate
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
Range("W16").Select
ActiveWindow.SmallScroll Down:=-3
Range("W16:W28").Select
Application.CutCopyMode = False
Selection.Copy
Windows("capa.xls celluleB2.xls").Activate
Range("F4").Select
ActiveSheet.Paste
fermer ce fichier capa.xls celluleB2.xls
et repartir sur l'ouverture du fichier suivant capa.xls celluleB3.xls pr recopier les données
jusqu'à ce que la cellule BXX soit vide.

J'espère avoir été suffisement clair
Merci d'avance pr le temps que vous prendrez a checker ce post !