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

Question

Bonjour, 

J'aimerai récupérer le nom des fichiers liés des cellule de mon classeur en VBA. J'ai dans mes cellules des liens vers d'autre valeur d'un fichier. J'aimerai récupérer le nom de c'est ficheir dans une variable. 

Une idée? 

Merci d'avance. 


Configuration: Windows 2003 / Internet Explorer 8.0

poulain35 · Answer

J'ai trouvé ceci : 


    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

Mais j'ai une erreur au niveau du Ubound, il me mette Tableau attendu. Pourquoi?

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

1 réponse

Discussions similaires

Newsletters