Macro pour liens hypertextes pdf

Résolu/Fermé
lolo78350
Messages postés
2
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
12 décembre 2014
- Modifié par pijaku le 11/12/2014 à 08:18
lolo78350
Messages postés
2
Date d'inscription
mercredi 10 décembre 2014
Statut
Membre
Dernière intervention
12 décembre 2014
- 12 déc. 2014 à 13:42
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

pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
2 702
11 déc. 2014 à 08:25
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


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

12 déc. 2014 à 13:42
Super merci pour votre aide & votre réponse rapide
0