T77XDD
XLDnaute Occasionnel
Bonjour,
je cherche à rajouter l'hyperlien envoyant au fichier qui viens d'être créé dans cette macro
L'activeCell est est contenue dans le nom du document créer et avec lequel on cherche à créer le lien soit: "DPnum".
J'ai construit ces instructions en créant une macro qui m'a donné la ligne de code "ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _" avec "ActiveCell" qui remplace "ActiveSheet".
Le path "Filename" était arbitraire, à été remplacé par "C\DP....." d'ou la création des Dim etc
En dernier les cellules concernées sont situées dans la colonne X, là l'exemple était dans la ligne 276 mais je ne sais pas trop quoi en faire
je cherche à rajouter l'hyperlien envoyant au fichier qui viens d'être créé dans cette macro
Code:
Sub Hyper()
Dim Bat$, App$, Loc$, Ent$, DPnum$, NomFichierPDF As String
ActiveCell.CurrentRegion.Select
DPnum = Sheets("Récap DP").Range("$x$276")
Loc = Sheets("Récap DP").Range("$i$276")
Ents = Sheets("Récap DP").Range("$o2$76")
App = Sheets("Récap DP").Range("$G$276")
Bat = Sheets("Récap DP").Range("$H$276")
NomFichierPDF = "DP" & " " & DPnum & " " & Locs & " " & Ents, _
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
Filename:="C:\DP\" & Bat & "\" & App & "\" & NomFichierPDF & ".pdf"
End Sub
J'ai construit ces instructions en créant une macro qui m'a donné la ligne de code "ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _" avec "ActiveCell" qui remplace "ActiveSheet".
Le path "Filename" était arbitraire, à été remplacé par "C\DP....." d'ou la création des Dim etc
En dernier les cellules concernées sont situées dans la colonne X, là l'exemple était dans la ligne 276 mais je ne sais pas trop quoi en faire
Pièces jointes
Dernière édition: