Discussion :

[janakka-horus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Qwazerty]

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

[janakka-horus]

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\

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[janakka-horus]

Bonjour Qwazerty

Merci ca fonctionne parfaitement tues Top

A++