Imprimer plusieurs onglets d'un fichier XLS en PDF

[SLK55AMG]

Bonjour,

Je suis tout nouveau sur le site, je suscite votre aide car j'ai passé plusieurs jours à tenter de résoudre ce problème.
Je vous explique j'ai un fichier Excel avec une centaine d'onglet. Je souhaiterai créer un fichier pdf à l'aide de PDFCréator pour chaque onglet du classeur. Je me suis bien inspiré des remarques de certains initiés pour sortir un code VBA qui parait fonctionner mais le fichier PDF en sortie semble corrompu?? Je pense qu'il doit y avoir un paramètre que je n'ai pas pris en compte. Car lorsque je le fait en manuel le fichier de sortie ne pose pas de problème. Lorsque c'est en VBA le fichier est bien crée mais à priori "Corrupt"
J'ai bien coché la référence PDFCréator dans le menu outil de visual Basic Editor. Je n'arrive pas à voir le problème, pourriez vous me venir en aide.
Merci

Voici le code :

Sub Macro1()
Dim LeChemin As String
LeChemin = "D:\Nouveau\"
Dim LeClasseur As Workbook
Set LeClasseur = Workbooks.Open(Filename:="J:\INCENDIE\Copie de DTOInfra.xls")
Dim feuille As Worksheet
For Each feuille In LeClasseur.Worksheets
Application.ActivePrinter = "PDFCreator sur Ne00:"
feuille.PrintOut , PrintToFile:=True, PrToFileName:=LeChemin & feuille.Name & ".pdf", Collate:=True
Next
LeClasseur.Close
End Sub

 

[DoubleZero]

Re : Imprimer plusieurs onglets d'un fichier XLS en PDF

Bonjour à toutes et à tous,

Bienvenue sur XLD, SLK55AMG !

Peut-être une solution, grâce au travail de kiki29, ici.

Bon courage et à bientôt 🙂.

 

[SLK55AMG]

Re : Imprimer plusieurs onglets d'un fichier XLS en PDF

Pas trouvé mon bonheur malheureusement! Il faut installer distiller et je dois traiter qu'avec des logiciels gratuit. Tel PDFCréator. Mais je reste persuadé que cela n'est pas grand chose car la sequence fonctionne, mais c'est la sortie du fichier qui n'est pas adéquate.
Si quelqu'un à une solution. Merqui