XL 2019 Remplir un formulaire pdf avec excel

• Acrobat Lecture des champs d'un formulaire PDF
• Acrobat Ecriture dans les champs d'un formulaire PDF
• Acrobat Ecriture dans les champs d'un formulaire PDF à partir d'une feuille Excel
• Acrobat Lecture de formulaires PDF
• Acrobatique : Remplissage de formulaire PDF qui renvoie ici

Étant définitivement fâché avec le "poseur" Belge et son "mignon de couchette" de Developpez.com, quelle paire de lucioles ( une anagramme ),j'ai supprimé l'ensemble des téléchargements ( 110 au bas mot ), d'où des liens internes de téléchargement caduques.

Cliquez pour agrandir...

Passer par Acrobat pour changer les dénominations en des termes plus explicites.
Copier la zone "Nom du Champ" de la feuille Lecture sur la feuille Ecriture et y faire du rangement.
Il faudra établir la correspondance entre zones "Espace" et zones du pdf.
D’où l'importance de cette dénomination des champs/checkboxes et autres lors de la création d'un formulaire .....

Cliquez pour agrandir...

kiki29 à dit:

Salut, s'il y a besoin de générer un PDF protégé par mot de passe Utilisateur/Propriétaire
s'inspirer de ceci : PDFCreator Envoi par Mail d'un fichier PDF protégé

Il faut pour cela PDFCreator 1.7.3. Bref qqch comme ceci :

VB:

Option Explicit

Sub SelFichierACrypter_AES_128()
Dim Fichier As Variant, FSO As Object
Dim sNom As String, sExt As String, sDossier As String

    ChDir ThisWorkbook.Path & "\"

    Fichier = Application.GetOpenFilename("Fichiers PDF (*.Pdf), *.Pdf", Title:="Sélection PDF")
    If Fichier = False Then Exit Sub
    DoEvents

    Set FSO = CreateObject("Scripting.FileSystemObject")
    sExt = "_AES.pdf"
    sNom = FSO.GetBaseName(Fichier) & sExt
    sDossier = FSO.GetParentFolderName(Fichier)
    Set FSO = Nothing

    CrypterPDF Fichier, sNom

    Application.StatusBar = "Cryptage Terminé"
End Sub

Private Sub CrypterPDF(ByVal sNomfichier As String, sOutput As String)
Dim pdf As Object, Crypt As Object

    ' Nécessite PDFCreator 1.7.3
    Set Crypt = CreateObject("pdfforge.Pdf.PDFEncryptor")

    With Crypt
        .AllowAssembly = False
        .AllowCopy = False
        .AllowFillIn = False
        .AllowModifyAnnotations = False
        .AllowModifyContents = False
        .AllowPrinting = True
        .AllowPrintingHighResolution = True
        .AllowScreenreaders = False
        ' AES 128
        .EncryptionMethod = 2
        .ownerPassword = "master"
        .userPassword = "user"
    End With

    Set pdf = CreateObject("pdfforge.Pdf.Pdf")
    pdf.EncryptPDFFile sNomfichier, sOutput, Crypt
    Set pdf = Nothing

    Set Crypt = Nothing
End Sub

Cliquez pour agrandir...