Impression PDF avec conditions
Bonjour à tous,
Dans le cadre de mon projet j'ai un tableau Excel avec plus de 2000 lignes synthétisant l'ensemble des réserves sur un projet de construction.
Elles sont classés par appartement de type (DA11 / DA12 / DA13...etc. En tout plus de 200 appartements et parties communes), par entreprise, par localisation et par date.
En bref, je n'y connais pas grand chose en macro, mais je souhaiterais me créer un petit gestionnaire d'impression. Quand par exemple je souhaite uniquement les réserves de mon plombier, je clique, je sélectionne mon entreprise, tac je lance l'impression.
Je souhaiterais pouvoir réaliser cette manipulation sans avoir à afficher à l'écran les réserves que je souhaite imprimer...
Une idée messieurs - dames ?
Merci d'avance.
Dans le cadre de mon projet j'ai un tableau Excel avec plus de 2000 lignes synthétisant l'ensemble des réserves sur un projet de construction.
Elles sont classés par appartement de type (DA11 / DA12 / DA13...etc. En tout plus de 200 appartements et parties communes), par entreprise, par localisation et par date.
En bref, je n'y connais pas grand chose en macro, mais je souhaiterais me créer un petit gestionnaire d'impression. Quand par exemple je souhaite uniquement les réserves de mon plombier, je clique, je sélectionne mon entreprise, tac je lance l'impression.
Je souhaiterais pouvoir réaliser cette manipulation sans avoir à afficher à l'écran les réserves que je souhaite imprimer...
Une idée messieurs - dames ?
Merci d'avance.
1 réponse
-
Bonjour, je pense que tu peux créer un userform pour sélectionner tes critères (mais pas obligatoire) en plus de la macro.
Voici un code à adapter
Sub Enreg_Pdf()
'Macro Enreg_Pdf()
'Enregistre la feuille Archives du classeur en pdf. Nécessite une imprimante virtuelle comme PDFCreator.
'
'
d = Range("A65000").End(xlUp)
Sheets("Archives").Select
S1 = Range("A6").Value | <= définition des variables
S4 = Range("A" & d) |
Columns("D:J").Hidden = True |
Rows("1:3").Hidden = True | <= application des masques
With ActiveSheet.PageSetup
.CenterHeader = " texte à mettre au centre en en-tête" & S1 & " à " & S4
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"nom_du_fichier.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=page de début, to:=page de fin, OpenAfterPublish:=False <= aperçu après impression (oui = true, non = false)
