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

Solutions (3)
Tags :
  • Integer
  • string
  • Programmation
|
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.
Contenus similaires
Meilleure solution
partage
, Modérateur |
Salut,

J'imagine que c'est parce que aLinks est déclaré en tant que String
  • Commenter cette solution |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par jacouille35.
  • Commenter cette réponse |
Score
0
òh
òi
|
J'ai trouvé ceci :

  1. Dim nominv As String, nominv1 As String
  2. Dim nombre1 As Integer
  3. Dim aLinks As String
  4. Dim i As Integer
  5.  
  6. Workbooks(liaison2 & "\" & liaison1).Open
  7.  
  8. 'IDENTIFICATION LIAISONS CELLULE
  9.  
  10. aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
  11. If Not IsEmpty(aLinks) Then
  12. For i = 1 To UBound(aLinks)
  13.  
  14. 'inverse les caracteres
  15. nominv = StrReverse(aLinks(i))
  16.  
  17. 'compte jusqu'au "\"
  18. nombre1 = InStr(nominv, "\")
  19.  
  20. nominv1 = Left(nominv, nombre1)
  21.  
  22. MsgBox nominv1
  23.  
  24. 'identifier les liaisons dans une table
  25. requete1 = "INSERT INTO liaisons (nom_conv, chemin_conv) VALUES('" & liaison1 & "','" & liaison2 & "')"
  26. 'Déclaration du recordset
  27. base.Execute (requete1)
  28. aLinks (i)
  29. Next i


Mais j'ai une erreur au niveau du Ubound, il me mette Tableau attendu. Pourquoi?
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS