Macro VBA 'Enregistrer au format XPS'

[YannC.]

Bonjour à vous tous,

Pour ceux qui sont intérressé, voici un code en VBA pour excel qui permet d'enregistrer au format xps. Ce qui nous permet de ne plus devoir passer par du pdf. Et le format xps est lisible par tous.

Sub EnrXPS()
Dim sNomFichierXPS As String

Application.ScreenUpdating = False
Sheets("Nom de votre feuille").Select
sNomFichierXPS = ThisWorkbook.Path & "\" & "Nom de votre fichier.xps"
ActiveSheet.ExportAsFixedFormat Type:=xlTypeXPS, Filename:=sNomFichierXPS _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True
'Sheets("Nom de la feuille par default").Select (si vous voulez retourner sur votre onglet principal)

End Sub

 

[kiki29]

Re : Macro VBA 'Enregistrer au format XPS'

Salut,on peut dire la même chose du PDF ; lisible sur PC Mac Station Unix depuis très longtemps
Essaie de proposer du XPS à un imprimeur et tu verras , par contre avec du Pdf pas de proibleme

 

[YannC.]

Re : Macro VBA 'Enregistrer au format XPS'

Bonjour

Je suis d'accord avec toi, mais lorsque l'on envoie un fichier à un imprimeur, nous n'utilisons pas excel pour le creer. Mais des logiciels tel que Indesign. Ce qui permet d'être vraiment adapter avec l'imprimeur. Car comme tu le sais, il existe plusieurs norme tel que pdf-x1a; x3 et x4...

Et suivant c'est norme l'imprimeur peux ou pas faire une impression correct. Alors passer par excel n'est pas vraiment recommandé.

Mais c'est excellent pour rester en interne.

Cordialement