Macro imprimer une selection en PDF Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
K
Kaed
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 25 février 2016
Version d'Excel : 2016

Message par Kaed » 10 novembre 2016, 15:39

Bonjour,

Je me tourne vers vous car je n'ai pas réussi à trouver une solution a mon problème... Je m'explique:

J'ai une feuille sur mon classeur qui évolue chaque jour en quantité de ligne et qui est fixe en colonne.

A l'heure actuelle mon code pour l'impression est:
        With Worksheets("xxx")
            .ExportAsFixedFormat Type:=xlTypePDF, filename:=Sheets("N°1").Cells(1, 3) & "\123456", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        End With
Sur cette impression on est du type "Imprimer les feuilles actives" et je souhaiterais passé en "Imprimer la sélection".


Merci de votre aide
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 10 novembre 2016, 15:46

Bonjour,
Tu définis une zone d'impression et tu modifies la propriété IgnorePrintAreas en conséquence.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
K
Kaed
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 25 février 2016
Version d'Excel : 2016

Message par Kaed » 16 novembre 2016, 09:00

Merci pour ta réponse.

Du coup j'ai fais ceci est cela marche :)
    If IsFileOpen(Sheets("1").Cells(1, 3) & "%") Then
    Else
        Ligne = 5                                                      'Ligne de départ
            While Cells(Ligne, 2) <> ""                       'Recherche la première cellule vide
                Ligne = Ligne + 1
            Wend
    
        Ligne = Ligne + 4                                         
        
        Range(Cells(1, 1), Cells(Ligne, 12)).Select     'Selectionne la plage de cellule
        
            With Worksheets("***")
                Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:=Sheets("1").Cells(1, 3) & "%", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
            End With
       
    End If
Merci pour votre aide :)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message