Macro pour liens hypertextes pdf Résolu/Fermé

Question

Bonjour, 
je débute sur les macros & j'aurai besoin d'aide : j'ai fait une macro pour relier des numéros sur une une colonne de mon fichier excel avec des pdf regroupéssur un autre dossier nommés par ces mêmes numéros.
Ma macro fonctionne lorsque je les sélectionne un par un mais si je sélectionne toute la colonne, la macro attribue le même pdf pour toutes les cellules à savoir le premier.

Ci-dessous ma macro : 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "\sqynetapp04\data1\EIN\ASA\03 - GESTION\FACTURIERS\SCAN FACTURES\2014" & ActiveCell.Value & ".pdf", TextToDisplay:=ActiveCell.Value
    ActiveSheet.Hyperlinks(ActiveSheet.Hyperlinks.Count).CreateNewDocument _
    Filename:="\sqynetapp04\data1\EIN\ASA\03 - GESTION\FACTURIERS\SCAN FACTURES\2014" & ActiveCell.Value & ".pdf", EditNow:=True, _
    Overwrite:=False

Merci pour votre aide

pijaku · Answer

Bonjour,

Il te faut donc boucler sur toutes les cellules de ta colonne, du style :

Dim DLig As Long, Plage As Range, Cel As Range
'A ADAPTER : la colonne concernée. Ici j'ai mis C
DLig = Range("C" & Rows.Count).End(xlUp).Row
Set Plage = Range("C2:C" & DLig)

For Each Cel In Plage
    'ici tu ajoutes tes liens
Next Cel

lolo78350 · Answer

Super merci pour votre aide & votre réponse rapide

Macro pour liens hypertextes pdf

2 réponses

Discussions similaires