( RESOLU par ST007) Lien entre cellules et fichiers PDF

[chaelie2015]

Bonjour Forum
Je cherche a créer des liens vers des fichier en PDF
Dans la colonne A3 :A
je souhaite a chaque fois que je saisi un texte dans la cellule A par exemple (Ouvrir : 001-OL-KDT-E-2015) quand je clic sur cette cellule, elle va ouvrir le fichier Pdf qui nommé 001-OL-KDT-E-2015
la syntaxe dans la cellule A est : Ouvrir : « Nom de fichier.pdf »
exemple :
Ouvrir : 009-OA-KDT-E-2015 donc j’ai un fichier en PDF nommé 009-OA-KDT-E-2015
Ouvrir : 015-BK-KDT-E-2015 donc j’ai un fichier en PDF nommé 015-BK-KDT-E-2015
Ouvrir : 254-BZ-KDT-E-2015 donc j’ai un fichier en PDF nommé 254-BZ-KDT-E-2015
SALUTATIONS

 

[david84]

Re : Lien entre cellules et fichiers PDF

Bonjour,
tous ces fichiers se trouvent-ils au même endroit ?
Si c'est le cas tu as donc le chemin du fichier et son nom, donc tu peux utiliser la méthode FollowHyperlink de l'objet WorkBook.
A+

 

[chaelie2015]

Re : Lien entre cellules et fichiers PDF

Bonjour DAVID
Merci d'avoir répondu,
concernant les fichier PDF sont sauvegardés dans le même répertoires;
mais mon souci est comment faire extraire le nom du fichier PDF de la chaine (Ouvrir : 009-OA-KDT-E-2015)
SALUTATIONS

 

[st007]

Re : Lien entre cellules et fichiers PDF

Bonjour,

Peux tu essayer :

Sub liens()
    Dim i&, fin&
    fin = Sheets("Niveau5").Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To fin
        Sheets("Niveau5").Cells(i, 1).Hyperlinks.Add Anchor:=Sheets("Niveau5").Cells(i, 1), Address:= _
         Sheets("Niveau5").Cells(i, 1), SubAddress:="'" & Sheets("Niveau5").Cells(i, 1) & ".pdf"
    Next i
End Sub

en ajoutant dans la subaddress le chemin du dossier contenant tes .pdf

SubAddress:="' c:\chaelie\2015pdf\ " &

en supprimant tes "ouvrir :" ou en utilisant un right(cells(i,1),17)

 

[chaelie2015]

Re : Lien entre cellules et fichiers PDF

Re

merci pour la réponse St007
mais j'ai pas bien saisi ton code, puis je avoir plus de détails ( comment faire pour aller vers le fichier Pdf? ..ETC
SALUTATIONS

 

[david84]

Re : Lien entre cellules et fichiers PDF

Bonjour DAVID
Merci d'avoir répondu,
concernant les fichier PDF sont sauvegardés dans le même répertoires;
mais mon souci est comment faire extraire le nom du fichier PDF de la chaine (Ouvrir : 009-OA-KDT-E-2015)
SALUTATIONS

En utilisant la méthode REPLACE par exemple comme cela tu remplaces "Ouvrir : " par "".
Il te suffit ensuite de relier le chemin et le nom du fichier puis d'utiliser cette chaine dans la méthode FollowHyperlink.
A+

 

[st007]

Re : Lien entre cellules et fichiers PDF

re,

peux tu essayer macro liens() depuis feuille Niveau5

 

[chaelie2015]

Re : Lien entre cellules et fichiers PDF

Re
merci pour le fichier
mais a quel niveau (ligne dans le code) je rajoute le chemin de mon répertoire ?
a+

 

[st007]

Re : Lien entre cellules et fichiers PDF

re,

Ton fichier étant : D:\Telechargement\brolxl\

Sub liens()
    Dim i&, fin&
    fin = Sheets("Niveau5").Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To fin
    Sheets("Niveau5").Cells(i, 1).Value = Replace(Sheets("Niveau5").Cells(i, 1).Value, "Ouvrir : ", "")
        Sheets("Niveau5").Cells(i, 1).Hyperlinks.Add Anchor:=Sheets("Niveau5").Cells(i, 1), Address:= _
        "..\..\Brol\" & Cells(i, 1) & ".pdf", TextToDisplay:= _
        Cells(i, 1).Value
        Next i
End Sub

va pointer vers D:\Brol\

 

[chaelie2015]

Re : Lien entre cellules et fichiers PDF

Bonjour st007
merci infiniment
mon souci est résolut
SALUTATIONS