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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.