Fonction INDIRECT.EXT

Bonjour,

Dans la cellule A1 il y a un lien hypertexte du type :
J:\COMMUN\TRAVAIL\QUALITE\Actions correctives\2014\0214.xlsx

Je ne trouve pas comment envoyer le fichier..

Merci Ambre

@zambryaBonjour,

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

@JvDoRe-bonjour,

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

Merci beaucoup

Zambrya

@zambryaBonjour,

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

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

Zambrya

Bonjour,

J'ai mis VRAI dans la formule, car j'ai cru comprendre que ça permettait une mise à jour en cas de modification du classeur...
Je n'aurais pas dû?

Zambrya