XL 2019 Lien hypertexte à partir d’un segment

[Randal]

Bonsoir,
Je cherche à créer un lien hyper text vers un fichier pdf directement à partir d’un bouton segment.
j’avoue que je sèche un peu. Quelqu’un peut il m’éclairer ? Merci bien.

 

[Randal]

Bonsoir. J’ai posté hier soir un problème posé auquel je n’arrive pas à trouver la réponse. Quelqu’un a t il une idée ?

 

[job75]

Bonsoir Randal, bienvenue sur XLD,

Idée folle : déposez votre fichier avec le segment.

A+

 

[job75]

Autre idée folle, voyez le fichier .xlsm joint et cette macro :

Private Sub Worksheet_Calculate()
[G1] = "" 'RAZ
With ThisWorkbook.SlicerCaches("Segment_Légume")
    If Not .SlicerItems("Chou").Selected Then
        [G1].Hyperlinks.Add [G1], ThisWorkbook.Path & "\Carotte.xlsx", TextToDisplay:="Carotte.xlsx"
    ElseIf Not .SlicerItems("Carotte").Selected Then
        [G1].Hyperlinks.Add [G1], ThisWorkbook.Path & "\Chou.xlsx", TextToDisplay:="Chou.xlsx"
    End If
End With
End Sub

Téléchargez les 3 fichiers dans le même dossier (le bureau).

Cliquez sur l'un des boutons du Slicer pour créer le lien hypertexte en G1.

 

[job75]

Une solution bien meilleure dans ce fichier (2) :

Private Sub Worksheet_Calculate()
Dim si As SlicerItem, nom$, n%
For Each si In ThisWorkbook.SlicerCaches(1).SlicerItems
    If si.Selected Then nom = si.Name & ".xlsx": n = n + 1
Next
[G1] = "" 'RAZ
If n = 1 Then [G1].Hyperlinks.Add [G1], ThisWorkbook.Path & "\" & nom, TextToDisplay:=nom
End Sub

Elle fonctionne quel que soit le nombre de boutons du Slicer.

 

[job75]

Ah oui au post #1 vous parliez de fichier pdf alors téléchargez les fichiers joints.