mhdingbi
XLDnaute Nouveau
Salut à tous,
Je n'arrive pas à trouver quelque chose de concret sur le net par rapport à mon problème alors je vous le soumet.
Pour imprimer une feuille que j'ai faite pour récapituler mon travail j'utilise la méthode ExportAsFixedFormat xlTypePDF. Mais j'ai remarqué que dès fois les graphiques ne s'affichent pas ou bien ils changent de position. Or cela serait très dérangeant pour un utilisateur. J'aimerai aussi savoir s'il y a une autre méthode plus sûr pour la transversalité de l'application c'est à dire qui peut être sur pour être utilisé sur plusieurs versions d'excel .
Je n'arrive pas à trouver quelque chose de concret sur le net par rapport à mon problème alors je vous le soumet.
Pour imprimer une feuille que j'ai faite pour récapituler mon travail j'utilise la méthode ExportAsFixedFormat xlTypePDF. Mais j'ai remarqué que dès fois les graphiques ne s'affichent pas ou bien ils changent de position. Or cela serait très dérangeant pour un utilisateur. J'aimerai aussi savoir s'il y a une autre méthode plus sûr pour la transversalité de l'application c'est à dire qui peut être sur pour être utilisé sur plusieurs versions d'excel .
VB:
Sub ImprimerPrésentation()
Dim DossierDestination As Variant, NomFichier As String
DossierDestination = ThisWorkbook.Path & "\Résultats Formulations"
NomFichier = DossierDestination & "\Formulation béton-" & [CahierDesCharges.Référence] & " - " _
& [CahierDesCharges.NomClient] & " - " & [CahierDesCharges.NomProjet] & ".pdf"
If [CahierDesCharges.BétonFluide].Value Then
'Cacher une partie contenant l'abbaque Copt
Range("PresentationResultats.GraphiqueCopt").Rows.Hidden = True
Else
Range("PresentationResultats.GraphiqueCopt").Rows.Hidden = False
End If
'Call MettreNomGraphiquePourGranulometrie
On Error Resume Next
MkDir (ThisWorkbook.Path & "\Résultats Formulations")
On Error GoTo 0
MsgBox "Vos résultats seront enregistrés sur le dossier " & DossierDestination, vbInformation + vbOKOnly, "Message d'information"
PresentationResultats.ExportAsFixedFormat xlTypePDF, NomFichier, Quality:=xlQualityStandard, _
OpenAfterPublish:=True, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub