Discussion :

[prosper02]

Bonsoir,

quelqu'un pourrait-il me guider afin d'insérer le code VBA qui convient pour que le résultat de l'export de ma feuille Excel vers PDF reste concentré sur une page.

voici le code utilisé que je ne parviens pas à compléter:

Code :

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

1
2
3
4
5
6
7
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=chemin & nom_fichier, _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  from:=1, To:=1, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=True

merci pour votre aide.

[Alex020181]

Bonjour

Normalement il te suffit d'aller dans les options de mises en page d'Excel et de lui préciser d'ajuster à x pages en hauteur et x pages en largeur. Cette option s'appliquera ensuite automatiquement (sans VBA) à toutes tes futures impressions.

Si des fois tu veux expressément inclure dans ton code cette mise en page:

Code vba :

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

1
2
3
4
5
6
 
With Worksheets("nom_de_ta_feuille").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With

À mettre avant ton code bien sûr puisque la mise en page doit être faite avant l'impression.

Pour coller plus à ton exemple tu peux remplacer
Worksheets("nom_de_ta_feuille")
par
Activesheet

[prosper02]

Merci Alex pour la réponse qui fonctionne parfaitement mais les boutons de commande que j'avais placé sur la page 2 viennent perturber le processus (:-

en effet, en fonction des données (c'est une facture) il se fait qu'une colonne de la page excel s'élargisse (question visibilité) et je me retrouve avec cette colonne sur la page 2 où on été placés des boutons de commande.

Mon objectif est donc d'exporter les colonnes "A to G) de ma facturation vers UNE PAGE PDF sans pour autant y intégrer les boutons de commande qui sont utiles à la manipulations des données mais qui n'ont rien à faire sur le fichier exporté.

merci à tous,

[Alex020181]

Pour ne pas imprimer les boutons il suffit de faire un clic droit et de modifier l'option adéquate dans les propriétés



Ensuite vérifiez également si, hors code, vous n'avez pas inséré des sauts de pages forcés manuellement.

[prosper02]

Merci pour cette information que je ne connaissais pas mais le corollaire est que la taille du pdf s'en trouve fortement réduit ce qui n'est pas idéal pour une document devant servir de facture.
Je suis néanmoins assez content d'avoir trouvé une autre solution en sauvegardant la plage de cellules concernées par la facture.
Le résultat est parfait et correspond à mon attente.

merci encore pour votre aide

[Alex020181]

Vous voulez dire que votre facture était trop rapetissée avec des grandes marges autour ?

Vous avez peut-être définie une zone d'impression plus grande que nécéssaire. Dans ce cas Excel prend en compte toute votre zone même si elle est vide.
Dans votre code remplacez
IgnorePrintAreas:=False
par
IgnorePrintAreas:=True

Ou bien vous avez des cellules contenant seulement des espaces par delà votre facture. Du coup pour Excel ces cellules sont non vides et se charge de les prendre en compte dans l'impression. Mais comme ce sont des espaces vous ne les voyez pas.

[prosper02]

Le problème réside dans le fait que avec la méthode "habituelle", le résultat de l'export est en effet rétréci et donc inadéquat.
Le problème apparaît lorsqu'en fonction des données la dernière colonne déborde sur la page 2 avec pour résultat que cette page 2 vient comprimer la page 1, ce qui bousille alors le résultat attendu.

voici un croquis de la page avec débordement


Par contre en travaillant sur la plage de cellules le résultat est parfait qu'il y ait 1 page ou 2

voici le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    With ActiveSheet    'sauvegarde au format PDF
 
        Range("A2:G52").Select
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesTall = 1
        .PageSetup.FitToPagesWide = 1
 
        Selection.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=chemin & nom_fichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        from:=1, To:=1, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
 
     End With

[Alex020181]

OK
Bonne continuation alors