Ouvertures de fichiers à partir de URL sur 2 ranges
* 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:
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
