Macro récupération de données d'un fichier stocké sur un site intranet

Bonjour,

Je travaille dans une entreprise qui possède un site intranet permettant de stocker et partager nos fichiers. J’aimerais créer un fichier qui viendrait récupérer des données dans différents fichiers à partir de leur lien internet sans les ouvrir. Je suis débutant en VBA, si quelqu’un pourrait m’aiguiller pour faire le lien entre mon fichier et un fichier sur un site intranet.

Merci d’avance.

Je me permet de relancer ma demande.

Je partage le début de macro que j'ai écrit :

Sub MAJ()
    Application.ScreenUpdating = False
    Dim FichierGlobal As Workbook
    Dim FichierSource As Workbook
    Dim SheetsGlobal As Worksheet
    Dim SheetsLink As Worksheet
    Dim SheetsSource As Worksheet
    Dim i_G As Integer
    Dim j_G As Integer
    Dim i_S As Integer
    Dim j_S As Integer
    Dim i_L As Integer
    Dim j_L As Integer
    Dim Supplier As String
    Dim Link As Hyperlink
    'Initialisation des variables
    Set FichierGlobal = ActiveWorkbook
    Set SheetsGlobal = FichierGlobal.Worksheets("Traçabilité-Tracability")
    Set SheetsLink = FichierGlobal.Worksheets("Links")
    Set FichierSource = ???
    Set SheetsSource = FichierSource.Worksheets("Traçabilité-Tracability")
    i_G = 6
    j_G = 3
    i_S = 13
    j_S = 3
    i_L = 5
    j_L = 5    
    Link = SheetsLink.Cells(i_L, j_L).Hyperlinks(1).Address
    Supplier = SheetsLink.Cells(i_L, j_L - 3).Value
    'Ajout des données
    While SheetsLink.Cells(i_L, j_L).Value <> ""
        FichierSource = ???
        While SheetsSource.Cells(i_S, j_S).Value <> "" Or SheetsSource.Cells(i_S, j_S + 2).Value <> ""
            'Parcours de chaque ligne non vide du l'onglet Source et copier/coller ligne par ligne dans l'onglet Global
            SheetsSource.Range("C" & i_S & ":M" & i_S).Copy
            SheetsGlobal.Cells(i_G, j_G + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
            SheetsGlobal.Cells(i_G, j_G) = Supplier
            i_S = i_S + 1
            i_G = i_G + 1
        Wend
        i_S = 13    'Réinitialisation de l'indice pour le prochain document
        j_S = 3    'Réinitialisation de l'indice pour le prochain document
        i_L = i_L + 1
        Link = SheetsLink.Cells(i_L, j_L).Hyperlinks(1).Address
        Supplier = SheetsLink.Cells(i_L, j_L - 3).Value
    Wend
    Application.ScreenUpdating = True
    MsgBox ("File Updated")
End Sub

Merci d'avance