Macro enregistrer graphique au format paysage PDF

Bonjour,

Je souhaiterai enregistrer une feuille sur laquelle se trouve deux graphique.

Il me faudrait enregistrer au format PDF

Voici le code actuel :

   Sheets("Imprimer").Select
    Sheets("Imprimer").Range("A1") = Sheets("menu").Range("A2")
            ActiveSheet.PageSetup.Orientation = xlLandscape
            ActiveSheet.PageSetup.Zoom = False
            ActiveSheet.PageSetup.FitToPagesTall = 1
            ActiveSheet.PageSetup.FitToPagesWide = 1

    Active.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & FName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    MsgBox ("Le fichier à été exporté avec succès")
    Sheets("menu").Select
   

Le problème est que le format enregistrer est toujours portrait..

Pourriez vous m'aider.

Merci beaucoup

bonjour,

en remplaçant active par activesheet dans le code que tu as fourni, je n'ai pas de problème, l'impression se fait bien en landscape.

    Sheets("Imprimer").Select
    Sheets("Imprimer").Range("A1") = Sheets("menu").Range("A2")
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.PageSetup.Zoom = False
    ActiveSheet.PageSetup.FitToPagesTall = 1
    ActiveSheet.PageSetup.FitToPagesWide = 1

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & fname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    MsgBox ("Le fichier a été exporté avec succès")
    Sheets("menu").Select

Je vous remercie,

Cependant j'ai deux graphiques, j'aimerai avoir deux pages dans mon PDF avec chaque page un graphique.

En plaçant correctement le premier graphique sur ma feuille je l'obtiens parfaitement dans mon PDF.

Mais le deuxième graphique n'est pas "détecté" et ne figure pas dans mon PDF.

Avez-vous une idée de la façon à procéder ?

Merci

bonjour,

en adaptant la macro et après avoir inséré un saut de page entre les 2 graphiques, je n'ai pas de problème.

    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.PageSetup.Zoom = 100
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & fname & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    MsgBox ("Le fichier a été exporté avec succès")

Bonjour

je pense que tu a pas mis la zone d'impression

voir la macro

• Sub Format()
  With ActiveSheet.PageSetup
  .PrintArea = "$B$5:$K$52" ' zone impression
  .Orientation = xlLandscape
  ' .Orientation = xlPortrait
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = 1
  End With
  End Sub

A+

Maurice

Les zone d'impression ne sons pas égales,

J'ai placé mon fichier en pièce jointe.

Est il possible d'arriver à faire des zone d'impression de taille égales ?

Merci Beaucoup

Merci Beaucoup, cela fonctionne parfaitement !!