Bonjour au forum,

Une erreur 429 concernant objet activeX se produit depuis achat et install du nouveau Windows version final. Avant l'installation de windows8 tout fonctionnait parfaitement. Je reteste mon fichier sur un autre poste sous windows7 et office 2010, pas de problème. L'erreur se produit pour le code (créer grâce à l'aide du forum)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub EncryptPDFUsingPdfforgeDll(sNomFichier As String, sOutputCrypt As String)
Dim Pdf As Object, Crypt As Object
 
    Set Crypt = CreateObject("pdfforge.pdf.PDFEncryptor")
 
    With Crypt
        .AllowAssembly = False
        .AllowCopy = False
        .AllowFillIn = False
        .AllowModifyAnnotations = False
        .AllowModifyContents = False
        .AllowPrinting = True
        .AllowPrintingHighResolution = True
        .AllowScreenReaders = False
        .EncryptionMethod = 2
 
        .OwnerPassword = "master"
        .UserPassword = ""
    End With
 
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
    Pdf.EncryptPDFFile sNomFichier, sOutputCrypt, Crypt
 
    Set Pdf = Nothing
    Set Crypt = Nothing
End Sub
etla ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Crypt = CreateObject("pdfforge.pdf.PDFEncryptor")
est affichée en jaune.

Avez-vous une idée ?

Stephanie