Normalement, cela ne casse plus trois pattes à un canard depuis Excel 2003 (ou 2007, je ne sais plus) d’enregistrer en natif sous PDF… Ma macro marche sur mon ordinateur, aucune difficulté a priori.

Mais sur un serveur, cela bug malheureusement.

Cela utilise aussi Excel 2016 donc ce n’est pas un problème de version.

Le message d’erreur est le suivant : ”Run-time error 1004 – No printer are installed. To install a printer click the File tab, and then click print. Click no printer installed, and then click add printer, Follow the instructions in the add printer dialogue box”.

J’ai envie de lui dire “laisse-moi tranquille, c’est mon droit de ne pas avoir de printer…”. Ne peut-on pas faire un “enregistrer sous“ en PDF lorsqu’on n’a pas de printer ?

Merci de vos lumières !



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveAs()
 
Path = ThisWorkbook.Sheets("Param").Range("E14")
File = ThisWorkbook.Sheets("Param").Range("E15")
 
Sheets(Array("Reporting", "Reporting p2", "Balance Analysis", "ErrorCheck")).Select
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & File, OpenAfterPublish:=True
 
Sheets("DataPricing").Select
 
End Sub