XL 2019 Aide VBA ouverture d'un fichier en cliquant sur un libellé (Label)

[pedrobrignoles]

Bonjour à tous,

Dans un userform je souhaiterais ouvrir un fichier PDF en cliquant sur un label créé dans le userform.


Merci par avance pour votre aide.

 

[sylvanu]

Bonjour Pedrobrignoles,
Un essai en PJ avec deux solutions, simplement avec :

'Si nom fichier en "dur" dans le code ( à modifier )
Private Sub Label1_Click()
    ThisWorkbook.FollowHyperlink "C:\Users\PC_PAPA\Desktop\Scan0016.pdf"
End Sub
'Si nom fichier dans le label ( à modifier )
Private Sub Label2_Click()
    Fichier = Me.Label2
    ThisWorkbook.FollowHyperlink Fichier
End Sub

Par contre je n'ai pas trouvé comment supprimer les alertes de sécurité de Windows ( d'ailleurs je ne sais pas si c'est possible hormis toucher à la base de registre )

 

[pedrobrignoles]

Merci beaucoup Sylvanu pour cette solution qui correspond à 100% à mon besoin. Au Top!