* Bonjour, *

J'ai un petit enjeu. J'ai 2 listes différentes possédant chacun un ensemble d'URL à ouvrir de façon automatique pour aller récupérer des valeurs dans les fichiers.

Fichier1.xls
Onglet [données]
Onglet [VP1]
Onglet [VP2]

Dans l'onglet VP1, les url sont dans la colonne E (à partir de la ligne 2), et le nombre de lignes est variable.
Dans l'onglet VP2, les url sont dans la colonne A (à partir de la ligne 2), et le nombre de lignes est aussi variable.

Je cherche à créer un array basé sur le format suivant:

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
Do While FichiersAOuvrir<> ""
        FNum = FNum + 1
        ReDim Preserve MesFiles(1 To FNum)
        MesFiles(FNum) = FilesInPath
Loop
 
    If FNum > 0 Then
        For FNum = LBound(MesFiles) To UBound(MesFiles)
            Set mybook = Nothing
            On Error Resume Next
            Set mybook = Workbooks.Open(MesFiles(FNum))
            On Error GoTo 0
 
            If Not mybook Is Nothing Then
                On Error Resume Next
Par le passé, cette macro fonctionnait en faisant l'inventaire des fichiers d'un dossier local. Maintenant, les fichiers sont sur un serveur Sharepoint, et j'ai 2 listes avec les URL de tous les fichiers existants à valider.

Je ne sais pas trop comment créer le array avec tous les url afin de faire la transition de mon classeur.

Merci,
Max