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)
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
Set Crypt = CreateObject("pdfforge.pdf.PDFEncryptor")
est affichée en jaune.
Avez-vous une idée ?
Stephanie
Partager