T77XDD
XLDnaute Occasionnel
Bonjour,
je cherche a créer un hyperlien à partir d'élément récoltés pour nourir "NomFichierPDF"
Pour ça j'ai essayé ce code
tout ce que je suis arrivé à faire pour le moment c'est créer au dessous de la dernière ligne l'hyperlien et la sélection avec le retour du curseur dans la case "A1".
Ce que je cherche à faire c'est créer l'hyperlien correspondant au "NomFichierPDF" sur lequel je vais cliquer dans la colonne "T" ou "26" sais pas!
Comme pour "bouton 1700" adapté à chaque case indépendamment
Merci de votre aide.
je cherche a créer un hyperlien à partir d'élément récoltés pour nourir "NomFichierPDF"
Pour ça j'ai essayé ce code
Code:
Sub Hyper()
Dim Bat$, App$, Loc$, Ents$, DPnum$, NomFichierPDF As String
derlig = [T60000].End(xlUp).Row + 5
ActiveCell.CurrentRegion.Select
With Sheets("Récap DP")
DPnum = .Range("T2", .Range("T2").End(xlDown))
Loc = .Range("I2", .Range("I2").End(xlDown))
Ents = .Range("O2", .Range("O2").End(xlDown))
App = .Range("G2", .Range("G2").End(xlDown))
Bat = .Range("H2", .Range("H2").End(xlDown))
End With
NomFichierPDF = "C:\DP\" & Bat & "\" & App & "\" & "DP " & DPnum & " " & Loc & " " & Ents & ".pdf"
ActiveCell.Hyperlinks.Add _
Anchor:=Range("T" & [T65000].End(xlUp).Row + 1), _
Address:=NomFichierPDF, _
TextToDisplay:=DPnum
End Sub
tout ce que je suis arrivé à faire pour le moment c'est créer au dessous de la dernière ligne l'hyperlien et la sélection avec le retour du curseur dans la case "A1".
Ce que je cherche à faire c'est créer l'hyperlien correspondant au "NomFichierPDF" sur lequel je vais cliquer dans la colonne "T" ou "26" sais pas!
Comme pour "bouton 1700" adapté à chaque case indépendamment
Merci de votre aide.
Pièces jointes
Dernière édition: