Macro pour imprimer tableaux de taille variable en PDF

bonjour,

je cherche à faire une macro pour imprimer en PDF 5 tableaux (répartis dans 5 onglets) et de taille variable.

idéalement avec un nom incluant la date du jour (par ex: overview27.06.2018) et sur un serveur

je n'ose pas vous montrer mes essais.

merci d'avance

jerome

Citation:

---

Envoyé par jerom1899

je cherche à faire une macro pour imprimer en PDF 5 tableaux (répartis dans 5 onglets) et de taille variable.

---

Pour générer un PDF à partir d'un classeur :
https://msdn.microsoft.com/fr-fr/vba...t-method-excel

Pour limiter la zone d'impression à tes tableaux, crée pour chaque onglet une zone d'impression, soit à la main, soit par VBA :
https://msdn.microsoft.com/fr-fr/lib.../ff198233.aspx
https://msdn.microsoft.com/fr-fr/VBA...property-excel

Citation:

---

idéalement avec un nom incluant la date du jour (par ex: overview27.06.2018) et sur un serveur

---

Le "." dans un nom de fichier, ce n'est pas une bonne idée.
Je te conseille plutôt le "-" ou le "_" (ou rien du tout).

Code:

---

"overview" & Format(Date(), "dd-mm-yyyy")

---

Pour faciliter le classement des fichiers, je te conseille aussi de mettre en premier l'année puis le mois et en dernier le jour.

Code:

---

"overview" & Format(Date(), "yyyy-mm-dd")

---

Citation:

---

je n'ose pas vous montrer mes essais.

---

Avec le peu d'informations que tu donnes, difficile de t'en dire plus.
Mais tu peux déjà commencer à construire un code avec les éléments que je t'ai fournis.

Salut, voir Post 1 , la dernière partie Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

merci bcp pour ces réponses, j'ai pas eu le temps d'essayer.

@Menhir, j'ai fait un copier-collé du code mais j'ai en retour le message suivant : erreur de comilpation erreur de syntaxe !


mon code pour commencer à imprimer 1 page en pdf :

Code:

---

1 2 3 4 5

Sub pdf()   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:="overview020718.pdf" Quality:=xlQualityStandard DisplayFileAfterPublish:=True   End Sub

---

re

bonjour
il te faut le chemin complet !!!
exemple

Code:

---

FileName:="C:\mondossier\mon sous dossier\overview020718.pdf"

---

Citation:

---

Envoyé par jerom1899

@Menhir, j'ai fait un copier-collé du code

---

De quel code ?

Si c'est celui avec le Format, c'est normal puisque c'est juste la construction d'une chaine de caractère à implanter dans ton code.
Il faut quand même faire un minimum d'effort et essayer de la comprendre pour savoir comment l'implanter. :?

effectivement je suis un amateur ....

je parle du code pour "simplement" générer un PDF ! j'essayais déjà d'imprimer une page afin justement d'essayer de comprendre mais malheureusement cette "simple" étape est restée sans succès .... même en intégrant un chemin d'accès plus long :

Code:

---

1 2 3 4 5

Sub pdf()   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:="C:\Users\jch.GAP\Desktop\overview020718.pdf" Quality:=xlQualityStandard DisplayFileAfterPublish:=True   End Sub

---

je viens de faire le test avec l'enregistreur de macro qui te donne le code sur un plateau

Code:

---

1 2 3

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\polux\Desktop\toto.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

---

soit tu n'a pas le complement saveasPDF soit ton chemin n'est pas bon soit le chemin que tu pointe tu n'en ai pas l'admistrateur et la effectivement windows t'envoie bouler

bien sur pour un chemin pointant sur le bureau tu peux utiliser la fonction environ

Code:

---

Environ("userprofile") & "\Desktop\toto.pdf"

---

Citation:

---

Envoyé par jerom1899

effectivement je suis un amateur ....

---

Nous le sommes tous.

Citation:

---

Envoyé par jerom1899

je parle du code pour "simplement" générer un PDF ! j'essayais déjà d'imprimer une page afin justement d'essayer de comprendre mais malheureusement cette "simple" étape est restée sans succès .... même en intégrant un chemin d'accès plus long :

Code:

---

1 2 3

Sub pdf() ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:="C:\Users\jch.GAP\Desktop\overview020718.pdf" Quality:=xlQualityStandard DisplayFileAfterPublish:=True End Sub

---

---

Ca manque de virgules entre les paramètres.

re
classeur entier to pdf

Code:

---

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("userprofile") & "DeskTop\overview020718.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=true

---