Macro pour liens hypertextes pdf [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
12 décembre 2014
-
Messages postés
2
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
12 décembre 2014
-
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

2 réponses

Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
2 575
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


Messages postés
2
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
12 décembre 2014

Super merci pour votre aide & votre réponse rapide