Problème avec Contrôle Activex Adobe Pdf Reader (Excel 2003)
Bonjour,
en m'inspirant de ce post affichage-miniature-fichier-pdf et du lien lié. Comment Afficher un document PDF dans un Formulaire ? j'ai ajouté un contrôle activex Adobe Pdf Reader dans un user form.
Sur ma machine, cela fonctionne sans encombre, mais sur une autre, à l'activation du Userform je reçois chaque fois une fenêtre avec le message d'erreur que je joints en vignette.
Je peux bypasser cette fenêtre mais c'est énervant.
Quelqu'un peut-il me dire où je dois aller pour rendre ce contrôle "safe". ?
Merci.
Pour info, voici un extract de mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| Private Sub Workbook_Open()
relaunch
End Sub
Sub relaunch()
Worksheets("Sheet1").Activate
'Réduit Excel'
Xl_réduit
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Me.StartUpPosition = 3
'Disable
Me.Stop_Polling.Visible = False
'Enable
Me.Start_Polling.Visible = True
Me.Open_Parm_Userform.Visible = True
'text
Me.Status_text = "*Stopped"
'last File
Me.Last_File_Name = ""
'Scanning_name
Me.Scanning_Name = ""
'Fax Sent
Worksheets("Parms").Range("C20") = 0
Me.Fax_Sent = Worksheets("Parms").Range("C20")
'Fax Sent Cumulated
Me.Fax_Sent_Cumulated = Worksheets("Parms").Range("C21")
Search_file = Folder & Trim(Worksheets("Parms").Range("C3"))
Me.AcroPDF1.LoadFile ("G:\Emballage\Format\Logo.pdf")
DoEvents
Me.Repaint
'Retrieve Debug_mode
Me.Debug_Sw = Worksheets("Parms").Range("C22")
End Sub |
