TCD et liens

[C@thy]

Arf! Oui, je sais, ce que je demande est impossible, mais c'est bien connu, les femmes veulent toujours l'impossible. B) (et comme ici c'est un des rares endroits où on peut justement obtenir l'impossible, je tente ma chance).

Oilà : lorsque je fais un TCD comportant des références avec des lien hypertexte, je récupère bien l'adresse du lien dans le TCD, mais on ne peut l'activer, donc ça ne me sert à rien!:sick:...

Quelqu'un a une soluce???? (même bancale!):silly:

Merci à vous :side:

Biz :kiss:

Bip Bip C@thy :kiss:

Message édité par: C@thy, à: 18/05/2006 16:07

 

[pobrouwers]

Salut C@thy, le forum,

J'ai eu le même problème et MichelXLD avait trouvé cette solution
A mettre dans la feuille qui contient le TCD

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pvt As PivotTable


On Error Resume Next
Set Pvt = Target.PivotTable
If err.Number = 0 And Target.Hyperlinks.Count = 1 Then Target.Hyperlinks(1).Follow

End Sub

Il faut aussi que tu crées les hypertextes sur cette feuille.
Fais une recherhe sur le forum pour savoir comment créer des hypertext en vba, il y a plein de topic sur ce sujet

 

[C@thy]

Merci pobrouwers, je vais regarder ça.
Sacré MichelXLD, je le croise souvent sur ma route, et même indirectement il répond encore à mes questions!

Merci à vous deux.

Biz :kiss:

 

[C@thy]

Il faut aussi que tu crées les hypertextes sur cette feuille.
Fais une recherhe sur le forum pour savoir comment créer des hypertext en vba, il y a plein de topic sur ce sujet

Honte à moi! J'ai pas réussi! :sick: T'as pas un exemple sous la main??? :whistle:

Biz

C@thy

 

[pobrouwers]

Re,

Envoi le fichier, j'essayerai de le faire directement sur le bon fichier, c'est plus facile je crois
a+

 

[MichelXld]

bonsoir chere C@thy , bonsoir cher Pobrouwers

ci joint une autre possibilité si le TCD contient juste les adresses d'URL


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pvt As PivotTable

On Error GoTo Fin

Set Pvt = Target.PivotTable
ThisWorkbook.FollowHyperlink 'urlto:' & Target, , True

Exit Sub
Fin:
If Not Err.Number = 1004 Then _
MsgBox 'La cellule selectionnée ne contient pas d'adresse valide'
End Sub



bonne soirée
MichelXld

 

[C@thy]

Merci Michel,

Ah cette C@thy, elle en demande des choses!!!
Bon, y'a déjà du mieux car je vois ta macro fonctionner...mais... pas le lien! Gasp!
Je joins mon exemple bidon.

Biz :kiss:

C@thy [file name=TCDLien.zip size=7722]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TCDLien.zip[/file]

 

[AV]

Ave,

Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

AV [aaa]

 

[C@thy]

YAISSE!!!! GREAT!!! ça marche au poil!!!

merci AV!!!

Biz

C@thy