Convertir un .xls en .pdf sans intervention

Version imprimable

Bonjour,

Cela fait plusieurs heures que je cherche en vain une réponse à ma question alors je me décide à poster içi.

Je travaille en entreprise et nous avons une application métier qui génère des fichiers .xls tous les matins.

Mon objectif est de convertir certains de ces fichiers en .pdf automatiquement (sans aucune intervention de ma part car le traitement aura lieu très tôt le matin).

J'ai PDFCreator et CutePDF mais je pense que PDFCreator répond mieux au besoin d'automatisation que je rencontre.

J'ai récupéré un code sur Internet qui permet de faire ça mais uniquement si le fichier .xls est ouvert et que le focus est sur la feuille que l'on veut imprimer.

J'ai donc essayé d'adapter ce code pour qu'il aille chercher les fichiers .xls dans un dossier et qu'ils les impriment en .pdf tout seul comme un grand mais je n'ai abouti à rien.

Pourriez-vous m'aider svp ?

Merci d'avance pour vos réponses ;)

Voici le code que j'ai récupéré :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 sNomPDF = "Essai.pdf" sNomXLS = "Test.xls" sCheminPDF = "c:\" 'If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub Set jobPDF = CreateObject("PDFCreator.clsPDFCreator") With jobPDF If .cStart("/NoProcessingAtStartup") = False Then MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator" End If .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = sCheminPDF .cOption("AutosaveFilename") = sNomPDF '0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt .cOption("AutosaveFormat") = 0 .cClearCache End With ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator" 'Fichier dans la file d'attente Do Until jobPDF.cCountOfPrintjobs = 1 DoEvents Loop jobPDF.cPrinterStop = False 'Attendre que la file d'attente soit vide Do Until jobPDF.cCountOfPrintjobs = 0 DoEvents Loop jobPDF.cClose Set jobPDF = Nothing

23/12/2009, 16h01
omen999

bonjour,
excel est-il également installé sur la machine sur laquelle sera lancé le script ?
23/12/2009, 16h07
orke22

Bonjour,

Oui, Excel est bien installé sur le poste qui fera le traitement.
23/12/2009, 16h49
omen999

alors il suffit de piloter excel comme serveur com, définir la variable objet activewindow qui est utilisée dans ton exemple et ça roulera tout seul
exemples de pilotage
23/12/2009, 16h55
orke22

Merci pour ta réponse omen999.

J'ai regardé l'exemple que tu m'a fournis mais peux-tu me dire ce que je dois changer sur mon code et surtout, est-ce que je dois installer quelque chose pour gérer les ActiveX ?
23/12/2009, 17h14
omen999

Citation:

peux-tu me dire ce que je dois changer sur mon code

tu dois ajouter le code qui va définir la variable objet activewindow en t'inspirant des exemples donnés

Citation:

est-ce que je dois installer quelque chose pour gérer les ActiveX ?

rien du tout, la fonction createobject sert justement à créer des objets activex utilisables dans un script
si excel a été correctement installé, il se sera référencé tout seul comme un grand dans la base de registres et
un objet excel pourra être instancié via ceci:

Code:

Set oExcel = CreateObject("Excel.Application")
23/12/2009, 17h25
orke22

Je ne vois pas ce que tu veux dire par "le code qui va définir la variable objet ActiveWindow".

Je débute en vbs (tu l'as surement déjà remarqué :mouarf:).

Aurais-tu un exemple (il ne parle pas spécifiquement de l'objet activewindow sur le lien que tu as posté).

Autres questions : Cette solution implique t-elle qu'Excel va s'ouvrir un moment ou un autre ?

Si je veux imprimer automatiquement un .xls en .pdf, dans tous les cas, Excel devra s'ouvrir à un moment donné ?

Merci pour ton aide en tous cas. ;)
23/12/2009, 17h56
omen999

je n'ai pas en tête le modèle objet précis d'excel que tu trouveras ici
en gros tu crées l'objet application, tu charges le fichier xls (l'exemple est donné dans le lien de mon précédent message)
tu définis l'objet activewindow qui est une propriété de l'objet application

Code:

Set ActiveWindow = oExcel.ActiveWindow

Citation:

Cette solution implique t-elle qu'Excel va s'ouvrir un moment ou un autre ?

a priori, quand excel est lancé en mode automation, il n'est pas visible, au pire un

Code:

oExcel.Visible = False

devrait résoudre le problème
mais cette ligne de ton code

Code:

ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator"

commande l'impression des feuilles sélectionnées
je ne sais pas si cette sélection est automatique quand on ouvre un fichier xls
(je n'utilise jamais excel) :aie:
bonne chance
23/12/2009, 18h02
orke22

Mille Merci !

Je devrais pouvoir me débrouiller avec tout ça. :ccool:

Bonjour,

J'ai avancé un peu dans le code, à priori il devrait tourner mais j'ai un problème avec cette ligne :

Code:

ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator"

Quand je lance le .vbs, j'ai systématiquement une erreur sur cette ligne : Instruction attendue.

Voici le code complet si ça peut aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\blabla.xls")
Set ActiveWindow = objExcel.ActiveWindow
Application.ActivePrinter = "PDFCreator"
objExcel.Visible = False
 
 
    sNomPDF = "Essai.pdf"
    sCheminPDF = "c:\"
 
    Set jobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With jobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    'Fichier dans la file d'attente
    Do Until jobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    jobPDF.cPrinterStop = False
 
    'Attendre que la file d'attente soit vide
    Do Until jobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    jobPDF.cClose
    Set jobPDF = Nothing

Un dernier petit coup de main svp :calim2:

24/12/2009, 10h27
orke22

Je pense que l'erreur vient des := de la ligne

Code:

PrintOut copies:=1

.

Quand je retire les : il me dit que le chiffre doit être compris entre 1 et et 32767 et quand je laisse := il me dit qu'une instruction est attendue.

Sachant que ce code est normalement utilisé directement dans une feuille Excel en VBA, le problème ne vient-il pas du fait que dans mon cas c'est un VBS et que la syntaxe n'est pas exactement la même ?

Merci de votre aide.
24/12/2009, 12h24
omen999

déjà remplace

Code:

Application.ActivePrinter = "PDFCreator"

par

Code:

objExcel.ActivePrinter = "PDFCreator"

ensuite la syntaxe de la méthode PrintOut est ici
au pifomètre, je mettrais quelque chose comme:

Code:

ActiveWindow.PrintOut True, False

Merci pour ta réponse,

En effet plus d'erreur de syntaxe par contre il m'ouvre des processus Excel à l'infini.

Juste avant que tu postes ta réponse, je venais juste de trouver une solution sur ce forum.

Voici la syntaxe que ce code propose :

Code:

objWorkbook.Sheets(1).Printout ,,,,"PDFCreator"

Et ça marche nickel !

Voici mon code final pour ceux que ça intéresse :

Il devrait marcher si vous avez PDFCreator et un fichier blabla.xls dans le répertoire C:\

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("c:\blabla.xls")
objExcel.Visible = False
 
objExcel.ActivePrinter = "PDFCreator"
    sNomPDF = "Essai.pdf"
    sCheminPDF = "c:\"
 
    Set jobPDF = CreateObject("PDFCreator.clsPDFCreator")
 
    With jobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
        .cOption("AutosaveFormat") = 0
        .cClearCache
 
    End With
 
    objWorkbook.Sheets(1).Printout ,,,,"PDFCreator"
 
    'Fichier dans la file d'attente
    Do Until jobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    jobPDF.cPrinterStop = False
 
    'Attendre que la file d'attente soit vide
    Do Until jobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    jobPDF.cClose
    Set jobPDF = Nothing

Merci beaucoup Omen999 pour ton aide tout au long de mes recherches.:ccool: