Discussion :

[axon74]

bonsoir à tous,
débutant le VBA, je souhaiterai inclure dans le chemin de mon lien hypertexte la valeur d'une cellule + l'extension mais je ne sais pas comment faire: voici le code qui ne marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= Cells(a2, 1).Value.pdf, ScreenTip:="Visualisez la pièce"

des idées?

Merci

Vs utilisé: ex 2003

[tirex28]

Bonsoir et bienvenue sur Dvp,

Essaye comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
    Address:=Cells(2, 1).Value & ".pdf", ScreenTip:="Visualisez la pièce"

Cordialement,

Tirex28/

[axon74]

nickel, ca marche.
Du coup, une deuxième question arrive: est-il possible de rajouter une cible au lien lorsque que j'enregistre ma feuille en htm? et à l'aide de la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("feuil2").Select 
With ActiveWorkbook.PublishObjects("Liste prix_7237")
        .HtmlType = xlHtmlStatic
        .Publish (False)
        .AutoRepublish = False
    End With