XL 2019 Remplir un formulaire pdf avec excel

YannC.

XLDnaute Occasionnel
Bonjour à tous,

Déjà merci d'avance de votre aide, qui m'a toujours été précieuse.

Je vous mets un fichier excel. J'essaye mais je bloque sur la méthode de faire en sorte que l'onglet "Mois" puisse remplir le formulaire en pdf en P.J.

Sachant que le pdf prendra que une journée à chaque fois, car 4 documents sur le pdf et justement par jour je n'ai que 4 salles de prise.

Merci beaucoup de l'aide.

Bonne soirée

P.S. "j'ai modifié la demande car cela était incompréhensible de ma part 😄
 

Pièces jointes

  • MAJ.xlsx
    80.8 KB · Affichages: 28
  • MAJ.pdf
    56.4 KB · Affichages: 24
Dernière édition:

kiki29

XLDnaute Barbatruc
Salut, à consulter si curieux : Liste Contributions PDF

Posts sur les Formulaires PDF : à adapter à ton contexte ( il te faut Acrobat pas le Reader )
É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.
 
Dernière édition:

YannC.

XLDnaute Occasionnel
Merci

j'ai trouvé ces liens sur les postes ayant une demande identique, mais je dois être stupide ou fatigué car je n'arrive pas à comprendre comment je dois faire. J'ai bien acrobat pro par contre, déjà un bon point pour moi ;)
 

kiki29

XLDnaute Barbatruc
Salut, à toi de poursuivre .....
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 .....
 

Pièces jointes

  • Formulaire_02.png
    Formulaire_02.png
    265.2 KB · Affichages: 41
  • Denominations.png
    Denominations.png
    236.9 KB · Affichages: 40
  • XLD.zip
    157.5 KB · Affichages: 19
Dernière édition:

kiki29

XLDnaute Barbatruc
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
 

Pièces jointes

  • Droits.png
    Droits.png
    30 KB · Affichages: 40
Dernière édition:

ogou

XLDnaute Nouveau
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
Merci
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510