Lien hypertexte suite

[Dominique]

Bonjour,
j'arrive a crée un cellule contenant mon lien
mais je voudrai executé ce lien en direct dans la macro
je ne trouve pas la fonction

ci joint ma macro

Sub liensalarie()
'
' liensalarie Macro
' Macro enregistrée le 25/01/2005 par Dominique Gueguen
'
Dim monLien As String
Dim debut As String
Dim fin As String
debut = "navision://client/run?servername=sdaec-exp370%26company=SDAEC%26target=Form%205200%26view=SORTING(Field1)%26position=Field1=0("
fin = ")%26servertype=NAVISION"
monLien = debut & ActiveCell & fin

Range("D3") = "Cliquez sur le lien"
Feuil1.Hyperlinks.Add Anchor:=Range("D3"), Address:=monLien
End Sub

Merci

 

[galopin01]

Bonjour;
Je ne pratique guère Hyperlink en VBA, mais voici l'aide de VBA :
Utilisation de l'objet Hyperlink
Utilisez la propriété Hyperlink pour renvoyer le lien hypertexte d'une forme (une forme ne peut utiliser qu'un seul lien hypertexte). L'exemple suivant montre comment activer le lien hypertexte de la forme 1.
Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True

Une plage ou une feuille de calcul peut contenir plusieurs liens hypertexte. Pour renvoyer un seul objet Hyperlink, spécifiez Hyperlinks(index), index étant le numéro du lien hypertexte. L'exemple suivant montre comment activer le lien hypertexte 2 de la plage A1:B2.
Worksheets(1).Range("A1:B2").Hyperlinks(2).Follow

Je pense que appliqué à ton cas :
Worksheets(1).Range("D3").Hyperlinks(1).Follow
devrait faire l'affaire.
A+

 

[Dominique]

Merci de ton aide

cette fonction permet d'activer un lien crée dans une cellule mais je veut activer un lien d'une variable 'monlien' dans l'exemple fournit car je travail avec un classeur partagé et il et impossible de crée des liens dans ce type de classeur
cela m'oblige à crée le lien dans un autre classeur
je suis à l'écoute d'une autre solution

Dominique