Sub PDF()
'
' PDF Macro
' Définition zone d'impression seconde feuille
Sheets("Graph - Asking rate").PageSetup.PrintArea = Sheets("Graph - Asking rate").ChartObjects("Graphique 2").TopLeftCell.Address & ":" & Sheets("Graph - Asking rate").ChartObjects("Graphique 2").BottomRightCell.Address
' Définition zone d'impression troisième feuille
Sheets("Graphe - Cumulative").PageSetup.PrintArea = Sheets("Graphe - Cumulative").ChartObjects("Graphique 2").TopLeftCell.Address & ":" & Sheets("Graphe - Cumulative").ChartObjects("Graphique 2").BottomRightCell.Address
'Sélection trois feuilles
Sheets(Array("Pouring progress", "Graph - Asking rate", "Graphe - Cumulative")).Select
'Export en un fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\Kartik\Pouring and Despatch plans\2011\" & Sheets("Pouring progress").Range("A2") & "\Follow up.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Sélection première feuille
Sheets("Pouring progress").Select
End Sub