Export PDF et zone d'impression

Bonjour,

j'utilise une petite macro qui fonctionne bien mais voici mon problème.
Je dois maintenant imprimer les pages 1 à 6 de mon document ou bien la zone de cellules $A$1:$K$473
Voici le code actuel dui fonctionne mais qui impime en pdf tout le document.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub RPS_PDF() Dim Chemin$, Repertoire$, Fichier$ With Sheets("DataDev") Chemin = .Range("C10") Repertoire = .Range("C13") Fichier = .Range("C19") Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & _ Repertoire & "\" & Fichier & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End With End Sub

---

Si qq'un peux me dépanner..
Merci d'avance.

Salut, voir sur http://www.developpez.net/forums/d43...bat-distiller/ ou utiliser l'enregistreur de macros qui te donnera qqch comme

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Sub Macro2() ActiveSheet.PageSetup.PrintArea = "$B$6:$G$29" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Transfert\Classeur1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub

---

Merci Bcp tout fonctionne.