Discussion :

[tamtam64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDIRECT("='" & "C:\Users\Anthony\Documents\Master" & "[" & GetFile(A1) & "]Exercice 1'!$A$1")

Merci

[kiki29]

Salut, Lire et écrire dans les classeurs Excel fermés