Fonction VBA et lire valeur workbook fermé
Bonjour,
Voici mon problème :
Pour chaque celulle d'une plage : chaque cellule contient le lien hypertexte d'un classeur colonne A.
Je souhaite dans la celulle de droite (colonne B) récupérer une valeur qui sera toujours sur une plage nommée dans un onglet appelé pareil dans le workbook dont le lien est dans lacolonne A.
Deux choses :
Je ne sais jamais le lien à l'avance car le range des produits que je parcours change
Je peux utiliser VBA pour faire une fonction
Je ne veux pas de sub
Je veux un truc trés simple :)
On recupere le nom
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Function GetFile(ByVal MyRange As Range) As String
Dim MyFolder As New Scripting.FileSystemObject
MyLink = MyRange.hyperlinks(1).address
For Each MyFile In MyFolder.GetFolder(MyLink).Files
If MyFile.Name Like "*" & "*.*" & "xl" & "*" Then
GetFile = MyFile.name
Exit For
End If
Next MyFile
Set GestionFichier = Nothing
End Function |
On a le lien
Code:
=INDIRECT("='" & "C:\Users\Anthony\Documents\Master" & "[" & GetFile(A1) & "]Exercice 1'!$A$1")
Merci
