Afficher un PDF dans un userform

Bonsoir ,

je souhaiterais si je clic sur un numéro de ". Calibration certifiacte" dans la colonne "C" le fichier PDF de même numéro affiche dans une usforme.

merci.

60calib.xlsx (9.32 Ko)

À tester,

n'oublies pas de changer les valeurs de dossier source ...

Edit: étrangement le fichier codé ne veut pas s'uploader .......

Marche à suivre:

Alt+F11

Creé un userform

Ajouter Controle Supplémentaire: Microsoft Web Browser

Dans le code du userform1:

Private sub Userform_initialize()
AfficherPDF
End Sub

Private sub AfficherPDF()
NumPDF = Activecell.Value
    Me.WebBrowser1.Navigate "about:blank"
    Me.WebBrowser1.Document.write "<HTML><Body><embed src=""C:\DOSSIER\" & NumPDF & ".pdf"" width=""100%"" height=""100%"" /></Body></HTML>"
End Sub

Dans le code de la feuille "CALIBRATION"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C7:C12")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

Bonjour le fil,

@Crackwood01, ce code ne fonctionne plus

Il faut utiliser

Private Sub AfficherPDF()
  Dim sPath As String, sFic As String
  sPath = "C:\DOSSIER\"
  sFic = Selection.Value & ".pdf"
  Me.WebBrowser1.Navigate sPath & sFic
End Sub

@+

eureur

Bjr, merci
crackwood01 et brunoM45 , une eureur apparaitre quand je clic sur le numéro de certificat.

merci

Bonjour,

Il suffit de suivre La procédure à été donnée sur ce post https://forum.excel-pratique.com/s/goto/1009980

@+

bsr , merci bcp ca marche bien maintenant

grand merci crackwood01 et brunoM45

Rechercher des sujets similaires à "afficher pdf userform"