LIEN HYPERTEXTE - récupérer la formule

[wrx924]

bonjour,

Colonne A: Lien Hypertexte

Valeur A1: 93280/xx/7aze
fonction: =LIEN_HYPERTEXTE(".\Fichiers\DD_1528.doc";"93280/xx/7aze")

je souhaiterai en colonne B récupérer une partie de la formule de A1 à savoir: DD_1528.doc

est-ce possible?? si oui comment?? doit-on passer par VBA??

nota: mon fichier contient 43258 lignes
merci pour votre aide
cdlt

 

[kjin]

Re : LIEN HYPERTEXTE - récupérer la formule

Bonsoir,
Fonction perso à tester

Function ADRHL(cel As Range)
x = Split(cel.Formula, """")
x = Split(x(1), "\")
ADRHL = x(UBound(x))
End Function

En B2

=ADRHL(A1)

A+
kjin

 

[Tibo]

Re : LIEN HYPERTEXTE - récupérer la formule

Bonjour,

Une approche avec les macros fonctions d'Excel 4 :

Ta formule en A1.

Se placer en B1, puis Insertion - Nom - Définir - Nom : formule - Fait référence à :

=LIRE.CELLULE(6;Feuil1!$A1)

ensuite, en B1, cette formule :

=GAUCHE(STXT(formule;TROUVE("µ";SUBSTITUE(formule;"\";"µ";2))+1;99);TROUVE(";";
STXT(formule;TROUVE("µ";SUBSTITUE(formule;"\";"µ";2))+1;99))-2)

à recopier vers le bas

@+

 

[wrx924]

Re : LIEN HYPERTEXTE - récupérer la formule

bonsoir Tibo,
je ne comprend pas ce que je dois inscrire en B1
=LIRE.CELLULE(6;Feuil1!$A1)??
ou
=GAUCHE(STXT(formule;TROUVE("µ";SUBSTITUE(formule;"\";"µ";2))+1;99);TROUVE(";";
STXT(formule;TROUVE("µ";SUBSTITUE(formule;"\";"µ";2))+1;99))-2)

merci pour vos réponses

 

[Tibo]

Re : LIEN HYPERTEXTE - récupérer la formule

Bonjour,

La première formule correspond à une formule nommée : Insertion - Nom - Définir - Nom : formule - Fait référence à : =LIRE.CELLULE(6;Feuil1!$A1)

La deuxième formule est celle à mettre en B1

Voir avec le fichier joint

@+

 

[wrx924]

Re : LIEN HYPERTEXTE - récupérer la formule

merci beaucoup
tu me permets de commencer super bien ma journée
encore merci

 

[kjin]

Re : LIEN HYPERTEXTE - récupérer la formule

Bonjour, salut Tibo 🙂,
J'étais parti pour un long laïus et puis finalement...no comment
kjin