Discussion :

[jerom1899]

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

[Menhir]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[kiki29]

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

[jerom1899]

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

[jerom1899]

@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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub pdf()
 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF FileName:="overview020718.pdf" Quality:=xlQualityStandard DisplayFileAfterPublish:=True
 
End Sub

[patricktoulon]

re

bonjour
il te faut le chemin complet !!!
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

@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.

[jerom1899]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

effectivement je suis un amateur ....

Nous le sommes tous.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

re
classeur entier to pdf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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