Discussion :

[malababar]

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.

[kiki29]

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

Code :

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

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

[malababar]

Merci Bcp tout fonctionne.