Fonction INDIRECT.EXT

Bonjour,

tu vas sur cjoint.com, tu génères le lien hypertexte que tu colles dans le prochain message. Tu ne mets aucunes infos perso dans les fichiers que tu mets en ligne.

La question est : A1 contient-elle un texte qui n'a rien à voir avec le lien hypertexte J:\COMMUN\TRAVAIL\QUALITE\Actions correctives\2014\0214.xlsx.

Si oui, il faut extraire le lien hypertexte de A1 à l'aide d'une fonction que tu mets dans un module, (Alt F11 puis insérer module) du genre :

Function lien(a As Range) As String
lien = a.Hyperlinks(1).Address
End Function

et transformer ta formule en :

=INDIRECT.EXT("'["& lien(A1) &"]Feuil1'!C16";VRAI) 

cordialement

Re-bonjour,

Voici le lien pour accéder à mon fichier : http://www.cjoint.com/c/EFmlDUWcspU

Merci beaucoup

Zambrya

Bonjour,

le lien hypertexte est : Actions%20correctives/2014/0114/0114.xlsx
le contenu de la cellule est : J:\COMMUN\TRAVAIL\QUALITE\2014\0114\0114.xlsx
Rien à voir a priori !
le système de répertoire sera relatif au répertoire en cours.

met la formule

=INDIRECT.EXT(lien(B3)&"Feuil1'!B9",VRAI)

et modifie le code :

Function lien(a As Range) As String
    lien = Replace(a.Hyperlinks(1).Address, "/", "\")
    lien = "'" & Replace(lien, Split(lien, "\")(UBound(Split(lien, "\"))), "[" & Split(lien, "\")(UBound(Split(lien, "\"))) & "]")
End Function

cdlt

Merci beaucoup, c'est exactement ce que je voulais :)
Non je ne suis pas sur MAC..
Encore merci

Zambrya