[VBA] Récupérer nom fichier lié d'une cellule

    Dim nominv As String, nominv1 As String
    Dim nombre1 As Integer
    Dim aLinks As String
    Dim i As Integer

Workbooks(liaison2 & "\" & liaison1).Open
    
    'IDENTIFICATION LIAISONS CELLULE
    
    aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(aLinks) Then
        For i = 1 To UBound(aLinks)
    
            'inverse les caracteres
            nominv = StrReverse(aLinks(i))
                                
            'compte jusqu'au "\"
            nombre1 = InStr(nominv, "\")
                            
            nominv1 = Left(nominv, nombre1)
            
            MsgBox nominv1
            
            'identifier les liaisons dans une table
            requete1 = "INSERT INTO liaisons (nom_conv, chemin_conv) VALUES('" & liaison1 & "','" & liaison2 & "')"
            'Déclaration du recordset
            base.Execute (requete1)
            aLinks (i)
        Next i