Discussion :

[Bella99]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

[Bella99]

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 !!!