Enregistrer en pdf seulement les"pages" non vide

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.

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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra