Besoin d'Aide : Ajouter un lien Hypertexte dans un formulaire UserForm

[Edoliie]

Bonjour,

Dans mon Classeur j'ai un Bouton "BtnPDF" qui me permet d'aller chercher un PDF dans mon ordinateur.
Vous trouverez ci-joint mon code VBA. Cela m'affiche le chemin du PDF dans ma TextBox "TBDAST4"

Private Sub BtnPDF_Click()

'Ajouter un PDF
Dim PDF As FileDialog
Set PDF = Application.FileDialog(msoFileDialogFilePicker)
With PDF
If link.Show <> -1 Then
GoTo vide
End If
TBDAST4 = PDF.SelectedItems(1)
End With
vide:

End Sub

Malheureusement j'aimerai avoir un lien hypertexte pour ouvrir le PDF une fois la donnée de mon formulaire ajouter à mon tableau.
Pouvez-vous m'aider ?

Je vous remercie d'avance.

 

[Hasco]

Bonjour,

Vous pourriez mettre un label ou un bouton ayant pour
.Text = "ouvrir le fichier"
.Tag = le chemin du fichier.

Puis (exemple pour un label) :

Private Sub Label1_Click()
   ' Ajouter éventuellement un test d'existence du fichier sur disque avant ouverture.
   If Label1.Tag Like "*.pdf" Then ActiveWorkbook.FollowHyperlink Label1.Tag
End Sub

Cordialement

 

[Edoliie]

Bonjour,

Vous pourriez mettre un label ou un bouton ayant pour
.Text = "ouvrir le fichier"
.Tag = le chemin du fichier.

Puis (exemple pour un label) :

Private Sub Label1_Click()
   ' Ajouter éventuellement un test d'existence du fichier sur disque avant ouverture.
   If Label1.Tag Like "*.pdf" Then ActiveWorkbook.FollowHyperlink Label1.Tag
End Sub

Cordialement

Je viens de tester votre code.
J'ai remplace ma TextBox qui contenais mon chemin par un Label.
Mais que j'ajoute les données à mon tableau Excel le liens s'affiche sur la case précédent.
Exemple :
Colonne A : Nom d'une entreprise
Colonne B : Type de document
Colonne C : Date du doc (le lien apparaît sur cette colonne)
Colonne D : Chemin (C'est les données de mon Label)

Je pense avoir un soucis de code mais je ne vois pas le quel. Pouvez-vous aidez ?
Je vous remercie pour votre code.

 

[Hasco]

Bonjour,

Je pourrais peut-être vous aidez si vous nous donniez du concret (fichier exemple anonymisé)

Cordialement

 

[Edoliie]

Finalement je viens d'ajouter une colonne de calcule automatisé avec la formule LIEN_HYPERTEXTE (), cela me permet en même temps de renommer le chemin automatique pour plus de lisibilité.
Je vous remercie de l'aide que vous m'avez apporté, cela ma permis de mettre un Label dans mon formulaire cela évitera un entrée erroné d'un chemin ne menant à aucun fichier.

Je vous remercie encore pour votre aide.
Cordialement et bonne journée à vous