Shapes & liens hypertextes

[Laurent]

Bonjour,

J'ai un userform qui me permet d'utiliser les données du tableau en cours, pour remplir un autre classeur.

dans mon tableau source, j'ai un lien vers un fichier (ex: C:\\classeur.xls)

dans mon 2nd tableau j'ai une shape nommée 'lien'.

J'aimerai que lorsque je clique sur le bouton du Userform, il m'ouvre le 2nd tableau,et qu'il m'insère automatiquement le lien dans le shape en tant que lien hypertexte.

j'avais commencé un truc comme çà :

lienhypertexte = range('A1').value
Workbook.open('C:\\test.xls')
Activesheet.shapes('lien').select

Après je bloque j'avais essayé

activesheet.hypertext.add anchor:=activeshape, address:=lien

Mais fonctionne pas...
quelqu'un à une idée?

Merci

Laurent

 

[MichelXld]

bonsoir Laurent

tu peux essayer

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(1), Address:='C:\\monClasseur.xls'


bonne soiree
MichelXld