Discussion :

[elmaximoys]

bonjour, je souhaiterai enregistrer une fiche excel en format pdf et cela de maniere automatique (sans qu'une fenetre s'ouvre me demandant ou je veux installer mon fichier),

pour l'instant le code utilisé est celui ci

Code :

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

ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

mais une fenetre apparait alors me demandant quel nom je veux donner a mon fichier, or je voudrai que le fichier prenne le nom de la cellule C1(par exemple) et s'enregistre automatiquement,

des idees?
merci bien

[kiki29]

Jour Bon

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
52
53
54
 
'=====================================================================================
'
'   sous VBA Menu Outils | Références  Cocher PDFCreator
'
'=====================================================================================
 
Option Explicit
 
Sub Tst_PdfCreator()
Dim objMessage As CDO.Message
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
 
    sNomPDF = "Essai_PdfCreator.pdf"
    sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator
 
    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"
            Exit Sub
        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
 
    ActiveSheet.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
 
End Sub

Si Adobe Acrobat voir http://www.developpez.net/forums/sho...d.php?t=431662