Bonjour tous le monde,

Je développe depuis quelques années en VBA et je dois produire des documents pdf à partir de documents excel précédemment générés.

Le souci c'est que nous somme sur un serveur distant et que je ne dispose que d'ADOBE PDF (moins pratique que CUTE PDF à mon sens) comme imprimante virtuelle.
J'ai donc opté pour la solution ExportAsFixedFormat, cependant le temps d'execution est très long car je génere environ 70 PDF par jour.

Voici mon code pour la partie impression :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub Impression(CODE)
 
nomFichier = "Z:\FICHIER_" & CODE & ".pdf"
 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= nomFichier, _
	Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorPrintAreas=False, _
	OpenAfterPublish:= False
 
End Sub
J'ai essayé de me passer de Activeworkbook pour accélérer en utilisant une variable worksheet à la place mais sans résultat,
J'ai également modifié les propriétés en abaissant la qualité.

Si vous avez des astuces je suis preneur.
Merci.