À 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