Modification liens hypertexte sujet

Bonjour,

Je viens à nouveau vers vous pour un problème de liens hypertextes corrompus.
Sur plus de la moitié des liens il manque une partie du chemin pour accéder au fichier.

Quand je fais un clic droit et modifier le lien hypertexte j'ai ceci : Listing%20CR\MW14023%20modif%20brûleur%20OCM.xls
J'aimerais ajouter cette partie du chemin aux liens existants : \s013\Groupes\milestone\Change Request\

J'ai essayé avec cette macro mais ca ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim h As Hyperlink For Each h In [B1:B1000].Hyperlinks If UCase(Left(h.Address, 2)) = "Li" Then h.Address = "\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 1) End If Next End Sub

---

Auriez-vous une solution ?

Extraction avant dernier item d'un lien hypertexte sujet

Bonjour a tous
je souhaite extaire les differents items d'un lien hypertexte afin de pouvoir interpréter dans une autre cellule la valeur obtenue.
Par Exemple :
j'ai en A1 mon lien hypertextedont le nom est Fiche_détaillée_FD1000_2500_058A.pdf

Je souhaite extraire dans une cellule voisine la chaine FD1000,
dans une autre cellule voisine la chaine 2500,
puis dans sa voisine 058A.

J'ai préalablement utilisé la formule suivante qui marche pour extraire la chaine aprés le premier underscore.

Code:

---

1 2	=stxt(A1;(cherche("_";A1;+1))+1;(cherche("_";A1;(cherche("_";A1;1))+1)-(cherche("_";A1;1))-1))

---

mais je n'arrive pas a extraire la chaine pour afficher la chaine aprés le dernier underscore et/ou avant dernier underscore.

Par contre cette formule ne marche que sur les chaines de caractères mais pas sur les lien hypertextes ce que je souhaiterais.

Je suis dans le flou si quelqu'un pourais m'aider a trouver la solution ce serait top .

Merci

XL 2010 lien hypertexte généré avec un userform sujet

Bonjour,
Je suis nouveau sur le forum.
Je bloque sur un Excel/ VBA / Userform

Je forme une base de données sur Excel
Je remplie cette base de données, via un userform.
A chaque saisie via le userform, je cherche à insérer un lien hypertexte vers un fichier (pdf...) présent dans une arborescence.
Le lien hypertexte est à coller sur une cellule remplie (listbox) dans le Userfom.
J'arrive à générer la fenêtre de recherche du fichier via

Application.Dialogs(xlDialogInsertHyperlink).Show

mais après je bloque ....

Qqn aurait une solution ou une piste ?

Merci par avance

Seb