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?