Lien hypertexte automatique selon cellule

[Florian94]

Bonjour à tous,

Je vous explique ce que je recherche.

Je suis en train de constituer une base de donnée. Dans mon exemple, de D4 à P4 je suis en présence de nom de fichier pdf dans chaque cellule.
Tout les fichiers pdf se trouvent dans le même répertoire que le document excel.

Ce que je souhaite faire, c'est demander à excel de rechercher avec chaque cellule le fichier correspondant et de me créer automatiquement un lien hypertexte.

J'ai cherché longuement une solution sans succès.

Je vous remercie par avance de l'attention que vous porterez à mon problème. 🙂

 

[Legolas]

Re : Lien hypertexte automatique selon cellule

Bonjour,

En faisant une petite macro, à placer dans un module :

Sub Macro1()
    
    Dim chemin As String, nom_fichier As String
    
    For i = 4 To 16
        Cells(4, i).Select
        chemin = 'mettre le chemin sous la forme "C\...\...\"
        nom_fichier = Cells(4, i).Value 'la cellule ne doit pas contenir l'extension .pdf du fichier
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=chemin & nom_fichier & ".pdf"
    Next i
        
End Sub

A plus

 

[schoret]

Re : Lien hypertexte automatique selon cellule

Merci de votre aide sa fonctionne très bien votre code magic lol