Discussion :

[seblenor]

Bonjour le forum !
j'aurais besoin d'imprimer avec pdf creator la page active de tous mes fichiers excel ouverts... (excel 2007)
et là malgré toutes mes recherches , que des plantages...

pour info, c'est 2 ou 3 fichiers maximum , et dans des tailles n’excédant pas 2 pages chacun

une idée ?

Merci d'avance !

[seblenor]

Bonjour,
je reposte une question restée sans réponse...
j'ai deux fichiers excel ouverts,
j'ai stoppé par macro l'imprimante PDF créator,
j'arrive à mettre dans la file d'impression de PDF creator les pages qui m'intéressent.
Pouriez- vous m'aider à:
-fusionner ces deux élements en un
-démarrer l'imprimante PDF créator
- sauvegarder le resultat dans un dossier (pourquoi pas pour l'exemple:d/crashtest)

Merci d'avance
Bonne soirée

[cco86260]

Bonjour seblenor

Je possède un code qui devrait répondre à tes besoins, il est à placer dans un module. Je te présente comment je l'ai utilisé :

Un USF, une ListBox, un bouton

Le boutons :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Cmd_PDF_Click()
    Dim i As Byte
    'boucle sur les éléments de la ListBox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        feuil = ListBox1.List(i) 'nom de la feuille
        Sheets(feuil).Select
        To_PDF
    End If
    Next i
End Sub

l'USF :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
   Dim Feuille As Object
  For Each Feuille In Worksheets
    Select Case UCase(Feuille.name)
      Case "MATRICE", "VIERGE" 'A adapter suivant ton classeur, sert a cacher les feuille inutile dans la listbox
      Case Else
        ListBox1.AddItem (Feuille.name) 'remplissage du combo
   End Select
  Next Feuille
 
End Sub

Dans un Module :

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
Option Explicit
'Ouvrir fichiers dans leur programme par défaut
'Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    '(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    'ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public chemsave As String
Public feuil As String
 
Sub ToPdf()
Dim pdfjob As Object
Dim DefaultPrinter
chemsave = ThisWorkbook.Sheets("MATRICE").Range("A111").Value 'tu peux changer la feuille et la cellule
'If chemsave = "" Then Exit Sub
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
'NomExcel = ThisWorkbook.Name
'NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = chemsave 'chemin destination
.cOption("AutosaveFilename") = feuil & ".pdf" 'nom de la feuille
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active
'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
'Dim Ret As Variant
'Ret = ShellExecute(hwnd, "open", chemsave & To_PDF.ComboBox1.Value & ".pdf", "", vbNullString, 1) 'ouverture du pdf
MsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"
End Sub

Voilà, j'espère que c'est ce que tu voulais, pense à cocher la référence "PDF CREATOR" dans VBA.

Naturellement il faut que tu adaptes à ton classeur, si tu as des soucis remonte les moi, j'aurais surement la solution... j'ai été confronté à ce problème

chris