XL 2016 vba pdf

[richardlion]

Bonjour a tous
j'ai un fichier Excel de reservation (PJ) pour lequel je souhaiterais extraire des informations a copier dans un PDF
ces information sont celle en bleu dans mon fichier Excel qui sont a placer dans mes espèces dédié du PDF.

j'ai bien une macro qui ouvre le PDF mais je n'arrive pas a remplir le PDF.

si quelqu'un avait une idée.

merci a vous

 

[sylvanu]

Bonjour Richardlion,
Ne serait il pas plus simple de faire un modèle sur une feuille XL masquée.
Le remplissage serait automatique, il suffit ensuite d'exporter cette feuille en pdf.
Export qui serait aussi simple, du genre :

Sub ConversionPdf()
Chemin = "C:\Users\PC_PAPA\Desktop\"    ' Dossier à modifier ( se termine par "\" )
NomFichier = "Essai.pdf"                ' Nom du fichier pdf à modifier
Set Plage = Range("D10:J25")            ' Plage à convertir, à modifier
Plage.ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=True, From:=1, To:=1
End Sub

 

[Modeste geedee]

Bons

Bonjour a tous
j'ai un fichier Excel de reservation (PJ) pour lequel je souhaiterais extraire des informations a copier dans un PDF
ces information sont celle en bleu dans mon fichier Excel qui sont a placer dans mes espèces dédié du PDF.

j'ai bien une macro qui ouvre le PDF mais je n'arrive pas a remplir le PDF.

si quelqu'un avait une idée.

merci a vous

Bonsour
Un fichier Pdf n'est qu'une variante d'un fichier imprimable
Pour cela utilisez l'imprimante virtuelle PDF fournie nativement parmi les dispositifs d'impression

 

[richardlion]

Bonjour Richardlion,
Ne serait il pas plus simple de faire un modèle sur une feuille XL masquée.
Le remplissage serait automatique, il suffit ensuite d'exporter cette feuille en pdf.
Export qui serait aussi simple, du genre :

Sub ConversionPdf()
Chemin = "C:\Users\PC_PAPA\Desktop\"    ' Dossier à modifier ( se termine par "\" )
NomFichier = "Essai.pdf"                ' Nom du fichier pdf à modifier
Set Plage = Range("D10:J25")            ' Plage à convertir, à modifier
Plage.ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=True, From:=1, To:=1
End Sub

Bonjour sylvanu,
ok merci a toi, j'ai retenue ton idée, mais je souhaiterais avec mon bouton "reservation" envoye un mail au destinataire (hôtel) avec le PDF crée
comment puis je faire

 

[sylvanu]

envoye un mail au destinataire (hôtel) avec le PDF crée

Aucun rapport avec le titre du fil.
Pour émettre un mail il faut connaitre quel messagerie vous utilisez ( Gmail, Thunderbird ... ) pour être simple. Des modules universels doivent cependant exister mais je ne les connais pas.

 

[kiki29]

Salut, voir par ici et fouiller/adapter

 

[richardlion]

Salut, voir par ici et fouiller/adapter

Merci a toi dommage que le site soit en anglais

 

[kiki29]

Merci a toi dommage que le site soit en anglais

re, à utiliser dans ce cas ? tu te prives de 95% voire plus de ressources qui sont en Anglais..

 

[richardlion]

ok merci a toi, j'espère trouver mon bonheur