Impression PDF - Chemin defini -

**MOICMOI** · 06/07/2009, 15h30

Bonjour

j`ai un petit pb VBA.
J`ai un fichier avec n feuilles (N> 133)
ds chaque feuille (facture client), j`ai des donnees et un chemin de sauvegarde car chaque client a son dossier et son chemin de sauvegarde bien complexe. d`ou l`idee de sauvegarder en automatique!

J`ai fait la macro ci-jointe basee sur un mix d`info mais il me manque juste a sauvegarder les donnees a l`endroit que j`ai defini.

Par macro j`imprime 1 zone d`impression (format PDF) et j`essaie de sauvegarder sur le chemin « Reportoire ».
Mais le code 'ActiveWindow.SaveAs Filename:=repertoire" ne me permet pas de sauvegarder le PDF
Pour sauvegarder un file excel le code est : "ActiveWorkbook.SaveAs Filename:=repertoire" avec Repertoire = chemin que j`ai defini ds cellule particuliere

je joins un doc pour que ce soit plus clair

alors j`ai passe un peu de temps sur le forum et j`ai essaye un 2eme code qui va pas non plus (voir module 1). bref le pb est moi ou la facon dont j`applique le code.

a savoir:
j`ai acrobate prof
je suis en reseau donc j`ai N imprimanteS dont 1 qui s`appelle "ADOB PDF"
Je suis excel 2003

je fais comment pour imprimer en auto sur le chemin defini en I1?
votre aide me rendrait un grand service!!

merci

MOICMOI

**DeaD78** · 06/07/2009, 17h39

Salut,

Je sais pas comment tu t'es débrouillé pour ta recherche mais en 2 secondes j'ai trouvé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Sub PrintToPDF_MultiSheet_Early()
 
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String
    Dim lSheet As Long
 
    Set pdfjob = New PDFCreator.clsPDFCreator
    sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
 
    If pdfjob.cStart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator.", vbCritical + _
                vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
 
    For lSheet = 1 To ActiveWorkbook.Sheets.Count
        'Check if worksheet is empty and skip if so
        If Not IsEmpty(ActiveSheet.UsedRange) Then
            With pdfjob
                '/// Change the output file name here! ///
                sPDFName = "testPDF" & Sheets(lSheet).Name & ".pdf"
                .cOption("UseAutosave") = 1
                .cOption("UseAutosaveDirectory") = 1
                .cOption("AutosaveDirectory") = sPDFPath
                .cOption("AutosaveFilename") = sPDFName
                .cOption("AutosaveFormat") = 0    ' 0 = PDF
                .cClearCache
            End With
 
            'Print the document to PDF
            Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
            'Wait until the print job has entered the print queue
            Do Until pdfjob.cCountOfPrintjobs = 1
                DoEvents
            Loop
            pdfjob.cPrinterStop = False
 
            'Wait until PDF creator is finished then release the objects
            Do Until pdfjob.cCountOfPrintjobs = 0
                DoEvents
            Loop
        End If
    Next lSheet
    pdfjob.cClose
    Set pdfjob = Nothing
 
End Sub

Ce n'est pas de moi je préviens. En tout cas, cela fait exactement ce que tu souhaites de A à Z : tu as x feuilles. Les x feuilles sont sauvegardées comme différents PDF. Tu n'as plus qu'à adapter "légèrement".

Allez, j'te donne un indice : il va falloir changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sPDFName = "testPDF" & Sheets(lSheet).Name & ".pdf"

si tu ne veux pas que le nom de ton fichier ait cette tête là et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cOption("AutosaveDirectory") = sPDFPath

pour le path. Bien sûr pense à changer tout ce qui a rapport avec cela.

Bonne chance pour la suite, il ne te reste vraiment plus que 5 minutes de boulot là !

**MOICMOI** · 06/07/2009, 18h59

bonsoir DEAD78,
merci pour ton aide.

je previens, je ne suis pas une star de VBA mais bon en general j`arrive a adapter les choses.

ca parait simple mais des le debut ca bloque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Dim pdfjob As PDFCreator.clsPDFCreator

message= User Defined Type not defined!

je sens que mon probleme est que j`ai pas PDF CREATOR mais ADOB PROF VERSION 8.
correct ou rien a voir?
je regarde ds les references mais je vois rien qui indique PDF CREATOR non plus

par contre pour info j`ai acrobate distiller

Merci de ton aide

MOICMOI

**DeaD78** · 07/07/2009, 10h13

Salut,

Effectivement, j'avais pas lu le passage sur l'outil que tu utilisais. Ca ne te tenterait pas d'installer PDFCreator ?

Ca serait quand même plus simple ! Dans le cas contraire, je vais essayer d'y jeter un oeil

**MOICMOI** · 07/07/2009, 13h05

Salut

merci

j`ai adob acrobat 8 prof , je pensais que c`etait le + puissant (ou presque) et donc que mon pb de facture serait facile... quelle erreur

merci en tout cas de te pencher sur mon pb.
j`ai fourni un file donc j`espere que je suis assez claire
n`hesite pas sinon

MOICMOI