Affichage en pdf vba

J'ai un problème d'affichage en pdf

J'ai un graphique que je fais exporter en pdf et quand je le fais manuellement il est ok
Quand je le fais avec le code voir plus bas. Il affiche seulement qu'une infirme partie????

Code:

---

1 2 3 4

Worksheets("Rapports").Activate ReportName = ReportPath & ReportFname ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ReportName, OpenAfterPublish:=False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

---

Avant il fonctionnait très bien il a cessé de bien fonctionné à la suite d'un 2e graphique qui a été rajouté voir code plus bas mais celui fonctionne très bien et affiche très bien aussi

Code:

---

1 2 3 4 5

Worksheets("Rapports2").Activate Name = "Indicateur_Demande_Service_Affaire-" ReportFname = ReportPath & Name & DateRapport ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ReportFname, OpenAfterPublish:=False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

---

Pouvez vous m'aider, j'ai quasiment tout essayé je suis en manque de ressource.

Merci

As-tu vérifié si ça ne viendrait pas des paramètres de mise en page ?

J'ai vérifier la mise en page et tout semble ok elle identique à mon rapport 2

Quand je fais l'aperçu pour l'impression l'affichage est parfait !!!