Bonjour à tous,
Je voudrais recréer complètement des liens hypertexte, seulement j'ai besoin de la donnée dans la cellule pour cela.
Est ce que vous auriez une solution pour moi, ActiveCell ne marche pas.
merci à vous.
For Each h1 In ActiveSheet.Range("k:k").Hyperlinks
ActiveCell.Select
NumerodeMarche = Worksheets("PON").Range("G4").Value
AnneeMarche = Left(NumerodeMarche, 4)
SECTEUR = ActiveSheet.Name
NumBC = ActiveCell.Value
h1.Address = RacineLien + "\" + AnneeMarche + "\M " + NumerodeMarche + " Densification " + SECTEUR + "\4- BC" + NumBC + ".pdf"
Next h1