Macro enregistrement pdf

Bonjour à tous,

quelqu'un saurait-il comment enregistrer dans un même fichier pdf deux graphiques present sur deux feuilles et qui s'apellerait comment la cellule D4 de la feuille "imprimer doc"

merci pour votre aide

Bonjour,

j'aurais besoin de quelques conseils pour modifier la macro suivante:

Sub PDF()
Sheets("livraison2015").Select
    Dim nom As String
nom = Range("A1")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
        Sheets("Imprimer doc").Select
End Sub

avec cette macro je peux enregistrer la feuille "livraison2015" en pdf et la renommer comme la cellule A1(livraison2015)=D4 de la feuille "imprimer doc"

Ce que je vaudrais, c'est:

• enregistrer uniquement le graphique present dans la feuille "livraison2015"
• que le fichier ce renomme automatiquement grace a la cellule D4 de la feuille "imprimer doc" et non par la cellule A1"livraison2015"

et si possible enregistrer dans un meme fichier les graphiques des feuilles "livraison2015" et "livraison2016"

Merci pour votre aide

bonjour

essayer ca

Sub Export1()
Dim nom As String
Dim chemin As String
Dim store1
Dim store2
 store1 = Sheets("livraison2015").PageSetup.PrintArea
 store2 = Sheets("livraison2016").PageSetup.PrintArea
nom = Sheets("Imprimer doc").Range("D4")
chemin = ThisWorkbook.Path & "\" & nom & ".pdf"
 Sheets("livraison2015").PageSetup.PrintArea = "$D$6:$J$21"
 Sheets("livraison2016").PageSetup.PrintArea = "$D$6:$J$21"
 ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=2, To:=3, OpenAfterPublish:=True
  Sheets("livraison2015").PageSetup.PrintArea = store1
 Sheets("livraison2016").PageSetup.PrintArea = store2

End Sub

ou

Sub print1()
Dim nom As String
Dim chemin As String
Dim store1
Dim store2

nom = Sheets("Imprimer doc").Range("D4")
chemin = ThisWorkbook.Path & "\" & nom & ".pdf"

 store1 = Sheets("livraison2015").PageSetup.PrintArea
 store2 = Sheets("livraison2016").PageSetup.PrintArea

 Sheets("livraison2015").PageSetup.PrintArea = "$D$6:$J$21"
 Sheets("livraison2016").PageSetup.PrintArea = "$D$6:$J$21"

ThisWorkbook.PrintOut From:=2, To:=3, Copies:=1, PrToFileName:=chemin, IgnorePrintAreas:=False
nom = Sheets("Imprimer doc").Range("D4")
chemin = ThisWorkbook.Path & "\" & nom & ".pdf"

  Sheets("livraison2015").PageSetup.PrintArea = store1
  Sheets("livraison2016").PageSetup.PrintArea = store2

End Sub

bonjour amir,

merci pout on aide.

A ton avis, est-il possible défaire en sorte pour la macro export, que le graphique prenne toute la page?