Pour des raisons de sécurité, ou de version je ne sais pas, je suis obligé de passer par une impression sous forme de PDF afin de créer un PDF d'une page excel.
J'ai déjà crée mes bornes et j'ai le code suivant :
Code:
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True
qui imprime le PDF et qui ouvre une fenêtre permettant "d'enregistrer sous" manuellement
Ma problèmatique est donc d'arriver jusqu'au bout de la démarche pour pouvoir enregistrer dans le Path avec le nom que je génère au préalable de manière automatique.
j'ai trouvé un code que j'ai adapté, par contre j'ai un problème à ce niveau :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
En effet, mon pdfjob reste toujours = Nothing! j'ai essayé avec un GetObject("PDFCreator.clsPDFCreator"), j'ai vérifié que j'avais bien PDFMaker en référence dans VBA, mais rien a faire
Application.ActivePrinter = "Adobe PDF on Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF on Ne02:", Collate:=True, PrToFileName:=NoMFichier
par contre j'ai une erreur : DESACTIVEZ l'option Ne pas envoyer les polices à Distiller
Lorsque je le désactive, tout se passe correctement, mais lorsque j'ouvre le fichier, le fichier est vide, et un message me dit que ce "type de fichier n'est pas pris en charge ou le fichier est endommagé"