Bonjour,
Crée un bouton sur ta "Feuil2" et affecte lui ce code (que tu adapteras...)
Sub TEST()
Dim graph As String
'adapter le nom sous lequel le fichier sera enregistré
graph = "\A ADAPTER.pdf"
'adapter le chemin du dossier (copier/coller le chemin depuis l'explorateur)
Dossier = "A ADAPTER"
Chemin = Dossier & graph
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PageSetup.Zoom = 100
ActiveChart.PlotArea.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Test et dis moi si ça fonctionne...
PS : Pas de Feuil3 dans ton classeur