Discussion :

[ToFind]

Bonjour,

Je souhaite effectuer une sauvegarde en PDF d'une zone sélectionnée d'une feuille.
J'ai tenté ceci, mais ce n'est pas correct.

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
 Sub BtnImpPdfBatiment()
Dim i As Long
vNomFichierPDF = ThisWorkbook.Path & "\" & "Fichier.pdf"
With Sheets("EP BATIMENT Print")
    For i = .Cells(Rows.Count, 8).End(xlUp).Row To 9 Step -1
        If .Cells(i, 8) > 0 Then
    ' Comment imposer de ne sauvegarder que la partie de feuille sélectionnée par le code ci-dessus?
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=vNomFichierPDF,_
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False, OpenAfterPublish:=False
 
    Exit For
    End If
    Next
End With
 
End Sub

Et plus encore, je souhaite effectuer la même sauvegarde en UN SEUL PDF d'une zone sélectionnée de PLUSIEURS FEUILLES d'un même classeur.

Qu'en pensez-vous?

[kiki29]

Salut, voir http://www.developpez.net/forums/d43...bat-distiller/ et adapter à ton contexte