Generer lien hyper text

Bonjour à tous n'étant pas un pro d'excel et VBA, je voudrai savoir s'il est possible de créer des liens HyperText sur Excel vers des fichiers pdf or mon soucis je ne connais que le début du nom

J'ai fait une recherche sur google et j'ai trouve ce code qui pourrait me convenir.

Code:

---

1 2 3 4 5 6 7

Sub creer_liens() Columns(2).Hyperlinks.Delete For Each cel In Range("A1:A" & [A65000].End(xlUp).Row) ActiveSheet.Hyperlinks.Add Anchor:=cel.Offset(0, 1), Address:= _ "C:\Test\" & cel.Value & ".pdf", TextToDisplay:="voir la fiche" Next cel End Sub

---

Mais comme je vous l'ai dit je ne connais que le début du nom.

Merci de l'aide que vous pourrez m'apporter.

Salut

Hum, comment lancer un pdf si tu ne connais pas son nom? Il est le seul à avoir un nom qui commence par la partie de nom connue?

Tu as aussi la fonction LIEN_HYPERTEXTE() que tu peux directement utiliser dans les cellules d'excel... mais il faudra un chemin valide...

Sinon il te faudra lister les fichiers pdf commençant par la partie connue (avec Dir par exemple) et boucler sur les résultats.

++
Qwaz

Bonjour Qwazerty,

Merci pour ton intervention.
Tout d'abord oui le fichier pdf est le seul a avoir un un nom commençant par la partie du nom connue.
Les fichier pdf se trouvent dans mon cas à cette adresse P:\commun_compta\POLE SENIORS\technotest\Fournisseurs\Facture fournisseur.

le nom du fichier pdf commencent par le référence se trouvant dans la colonne C.

Merci
et mon fichier Excel dans ce répertoire P:\commun_compta\POLE SENIORS\technotest\Fournisseurs\

Salut

Voici une solution

On transforme le tableau en tableau structuré, on ajoute une colonne qui va contenir le nom complet du 1er fichier correspondant trouvé.
On y place la formule

Code:

---

1 2	=LienHL_Partiel("P:\commun_compta\POLE SENIORS\technotest\Fournisseurs\" & [@[Réf.]] & "*.pdf")

---

Cette formule fait référence à une fonction perso qu'il faut placer dans un module standard dans VBA

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Public Function LienHL_Partiel(CheminPartiel As String) As String 'On fait une demande de mise à jour sur modification du paramètre Application.Volatile True   'On recherche le fichier et on retour le résultat (nom complet du fichier si trouvé, vide si pas trouvé) LienHL_Partiel = Dir(CheminPartiel)   End Function

---

Il ne reste plus qu'à mettre une formule lien_HyperText pour créer le lien à partir du chemin fourni dans la nouvelle colonne.

++
Qwaz

Bonjour Qwazerty

Merci ca fonctionne parfaitement tues Top :)

A++