Export PDF en masse

Version imprimable

10/09/2007, 15h26
Neuromancien2

Export PDF en masse

Bonjour,

J'aimerais exporter un grand nombre de fichiers (plusieurs centaines) Excel et Word au format PDF. J'utilise une imprimante PDF Acrobat_Distiller via la fonction PrintOut() de l'onglet courant. Or au delà de 5 fichiers, l'impression ne fonctionne plus correctement (fichiers manquants, incomplets, ordre aléatoire...). Que faut-il faire ?
10/09/2007, 17h18
ouskel'n'or

Ton code s'il te plait qu'on place les DoEvents là où il faut qu'ils soient ;)
Jète un oeil à DoEvents dans l'aide, ses explications seront meilleures que les miennes...
11/09/2007, 11h31
LeForestier

Bonjour,
Tient.. ça me rappel le même problème que j'ai eu il y a quelques années, je ne devais pas imprimer plusieur centaines de page mais 130 à la suite et ça plantait également. Je l'ai résolu en augmentant le Buffer de l'imprimante d'une façon substanciel.
A+
11/09/2007, 12h49
ouskel'n'or

Pas de problème non plus avec Acrobat Distiller, pour 97 pages (états Access) et des DoEvents (imprimante en réseau...) ;)
11/09/2007, 12h56
Heureux-oli

il reste aussi l'option PDFCreator qui est gratuite et qui peut-être commandée en VBA.
http://heureuxoli.developpez.com/office/word/doc2pdf/
C'est pour Word, mais on sans grand mal on peut l'appliquer à Excel.
11/09/2007, 13h04
ouskel'n'or

Hello l'homme heureux, tu connais Acrobat Distiller ? Parce que plus simple à utiliser, y'a pas ;)
11/09/2007, 13h07
Heureux-oli

Pas encore essayé, mais payant !!
Mais si c'est plus facile , oublions ce que j'ai dit.
11/09/2007, 13h21
ouskel'n'or

Si on l'a, Acrobat Distiller, il suffit de renommer l'imprimante par défaut, d'imprimer et de rétablir l'imprimante. Rien à déclarer ni à charger. ;)
Hélas, je ne l'ai pas... at home... :(

Mon code ressemble à ça :

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
FilesArray = Application.GetOpenFilename("Fichiers MS Word (*.doc),*.doc,Tous fichiers (*.*),*.*", , "Sélection des fichiers", , True)
    If TypeName(FilesArray) = "Boolean" Then
        If FilesArray = False Then
            MsgBox "Aucun fichier sélectionné.", vbExclamation + vbOKOnly, "Sélection des fichiers"
            Exit Sub
        End If
    End If
 
    If GetPDFPrinter = False Then
        MsgBox "Veuillez (faire) installer l'imprimante Acrobat Distiller, s.v.p.", vbExclamation + vbOKOnly
        Exit Sub
    End If
 
    sActivePrinter = Application.ActivePrinter
 
    Set oFSO = CreateObject("Scripting.FileSystemObject")
 
    For iCount = 1 To UBound(FilesArray)
        sExtension = oFSO.GetExtensionName(FilesArray(iCount))
        If sExtension = "doc" Then
            Set oDocument = oWordApp.documents.Open(FilesArray(iCount))
            oDocument.PrintOut Copies:=1, Collate:=True, ActivePrinter:=GetPDFPrinter
        End If
    Next

Il faut laisser le temps au système d'ouvrir les fichiers et également celui de lancer l'impression
As-tu essayé
Code:

1 2 3 4 5 6 If sExtension = "doc" Then Set oDocument = oWordApp.documents.Open(FilesArray(iCount)) DoEvents oDocument.PrintOut Copies:=1, Collate:=True, ActivePrinter:=GetPDFPrinter DoEvents End If
Ne retarde rien si le système n'a besoin de rien ;)
A+

13/09/2007, 16h27
Neuromancien2

C'est ce que j'ai fait. Visiblement ça fonctionne très bien. Merci.