Chemin lien HyperText

Bonjour les amis

J'ai trouvé le fichier ci-joint ici à notre forum, j’ai l adapté suivant mes besoins, il reste une petite chose :

J’ai un dossier sur mon bureau rangé comme suit : C:\Users\Desktop\Test\ feuil1 ou feuil2 ou … \ 01.01.2022.pdf

Je veux qu'à chaque clic sur le bouton d'activation de la macro il prend au chemin lien HyperText (C:\User\Desktop\Test\) le nom du feuil ouvert (feuil1 ; feuil2 ;.. ) puis la feuille PDF (01.01.2022.pdf)

Mercie pour vos aides

up

Bonsoir,

une proposition :

Sub creer_liens()
    Columns(2).Hyperlinks.Delete
    For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
        ActiveSheet.Hyperlinks.Add Anchor:=cel.Offset(0, 0), Address:= _
            "C:\Users\Desktop\Test\" & ActiveSheet.Name & "\" & cel.Value & ".pdf"
    Next cel
End Sub

Il faudra copier / coller le bouton sur chaque feuille.

@ bientôt

LouReeD

@LouReed

merci infiniment ça fonctionne à merveille

Re

comment je peux inverser la colonne "A1:A" par la ligne (3) cellule d3

car j ai deux tableaux le premier la liste des PDF sur la colonne A

le 2eme la liste des PDF sur la ligne 3

Bonjour

Ben là bien pas tout compris j'ai...

@bientôt

LouReeD

Bonjour

Remplacez : Range("A1.... Par :

Range(Cells(3,4),Cells(3,Cells(3,Columns.Count).End(xlToLeft).Column))

@ bientôt

LouReeD

@ bientôt

LouReeD

parfait , merci bien

Bonjour

Merci @ vous !

@ bientôt

LouReeD