Discussion :

[eric4459]

Bonjour à tous,
Voici mon problème :
Je dois imprimer en pdf une feuille Excel et adapter la zone d'impression en fonction de son contenu.
Pour definir ma zone j'ai utilisé ceci

Code :

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

TUK.PageSetup.PrintArea = "$A$1:$N$" & j

Pour l'enregistrer au format pdf j'utilise ceci :

Code :

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

1
2
TUK.PageSetup.PrintArea.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Folder_Name & Application.PathSeparator & Interface_Name.pdf

Lorsque je teste le code j'obtiens un message "Compile error : invalid qualifier" sur l'expression

Code :

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

.PrintArea

de la ligne

Code :

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

TUK.PageSetup.PrintArea.ExportAsFixedFormat Type:=xlTypePDF,

Quel commande puis-je utiliser à la place?
Question subsidiaire : comment optimiser la mise en page? (J'ai essayé de m'en sortir avec l'enregistreur de macro mais ca n'a rien donné)
Merci pour votre aide et vos conseils
Eric

[kiki29]

Salut, ceci fonctionne, donc à adapter à ton contexte ( obtenu bestialement via l'enregistreur de macros puis optimisé à la main )

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
17
18
19
Option Explicit
 
Sub Tst()
Dim sFichier As String
Dim i As Long
 
    i = Feuil1.Range("J1")
    Feuil1.PageSetup.PrintArea = "$A$1:$D$" & i
 
    sFichier = "C:\Essais\Test.pdf"
 
    Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
                               Filename:=sFichier, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               OpenAfterPublish:=False
 
End Sub

[eric4459]

Bonjour Kiki,
Merci,
en plus j’étais tombé dessus lors de mes recherche mais pas testé

L'enregistrement fonctionne très bien,j'ai essayé d'optimiser ma mise en page mais le résultat donne l'impression que ma zone sélectionnée s'étends sur les colonnes suivantes
et ce malgre un essai avec

Code :

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

 TUK.PageSetup.Orientation = xlPortrait

ou

Code :

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

 TUK.PageSetup.Orientation = xlLandscape

Eric

[kiki29]

Fais ta mise en page avec l'enregistreur de macros et tu auras des tas d'options en plus à nettoyer à la main ( marges, centrage, nb de pages, zoom etc )

.....
.PrintHeadings = True
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Zoom = 150
.FitToPagesWide = 1
.FitToPagesTall = 2
.....

[eric4459]

Bonjour Kiki,
Voici ce que j'ai ajouté pour avoir une zone d'impression un peu plus acceptable mais comme cette zone d'impression est variable je ne sais pas si cela sera suffisant.
En effet ma feuille est composée de 20 zones de commentaires (Cellules fusionnées ce qui n'arrange rien)et comme la longueur des commentaires peut être importante la hauteur de ma ligne est aléatoire.

Code :

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

1
2
3
  TUK.PageSetup.PrintArea = "$A$1:$M$" & j + 39
        TUK.PageSetup.Orientation = xlPortrait
        TUK.PageSetup.Zoom = 70

Je pense à ce que je viens d’écrire , si j'arrive à obtenir la hauteur de mes lignes je pourrais déterminer à quel endroit je dois placer un Saut de Page.
Je vais chercher dans ce sens mais il te vient une autre idée je suis preneur
Eric

[kiki29]

Salut, en partant de qqch comme ceci ? Sachant qu'une feuille vierge avec les mêmes marges a une hauteur h .....
La colonne A n'est là qu'à titre indicatif.

Code :

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

1
2
3
4
5
6
 
Sub Tst()
Dim LastRow As Long
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    Debug.Print Feuil1.Rows("1:" & LastRow).Height
End Sub

Il y a aussi Feuil1.UsedRange.Height mais pose qqs problèmes de "rafraichissement" quand il y a eu des modifs, mais à voir quand même.