superbog
XLDnaute Occasionnel
Bonjour,
J'ai une feuille récapitulative (qui se remplit automatiquement en fonction des autres) que je dois enregistrer en pdf toutefois je souhaite éviter les pages pdf blanches.
sachant que dans la zone d'impression les pages 1 à 3 correspondent aux colonnes A à F et les pages suivantes les colonnes G à K. Le problème se pose exclusivement pour les dernières pages, en effet, il y a plus ou moins de lignes dans les colonnes G à K selon les dossiers.
Il faudrait donc que l'impression s'arrête lorsque les lignes de la colonne G sont libres.
(je ne peux pas mettre d'exemple car le classeur est très lourd et la page concernée ne se remplit automatiquement que dans le classeur)
merci d'avance
J'ai une feuille récapitulative (qui se remplit automatiquement en fonction des autres) que je dois enregistrer en pdf toutefois je souhaite éviter les pages pdf blanches.
sachant que dans la zone d'impression les pages 1 à 3 correspondent aux colonnes A à F et les pages suivantes les colonnes G à K. Le problème se pose exclusivement pour les dernières pages, en effet, il y a plus ou moins de lignes dans les colonnes G à K selon les dossiers.
Il faudrait donc que l'impression s'arrête lorsque les lignes de la colonne G sont libres.
Code:
Sub pdf()
Dim dossier As String
Dim nomNewClasseur As String
dossier = Range("A9")
nomNewClasseur = "recap" & "-" & Range("A9") & "-" & Range("B9") & "-" & Format(Range("F2"), "ddmmyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\brigitte\Dropbox\RBX\RBX-BB\recap\" & nomNewClasseur, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub(je ne peux pas mettre d'exemple car le classeur est très lourd et la page concernée ne se remplit automatiquement que dans le classeur)
merci d'avance