Complement impression fichier pdf via excel

Version imprimable

Salut le forum
j'ai le code macro ci-dessous qui me permet de réaliser des impressions de certaines feuilles de mon fichier excel.
J'ai d'autres fichiers sous format pdf que je veux également imprimer. je souhaite que sur la base du code ci-dessous, je puisse aussi intégrer l'impression des fichier pdf.
Voici le code d'acdes de mon fichier pdf à imprimer :C:\users/benzoplus/desktop/SGIIOC/conditions générales PS.pdf

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
39
40
41
42
43
44
45
46
47
Sub IMPRESSION_FEUILLES()
 
'Déclaration des variables
 
Dim valeur_donne_E20 As String
 
'Sélection de la valeur de !DONNE E20 et mise en variable
 
Sheets("DONNE").Select
 Range("E20").Select
 valeur_donne_E20 = ActiveCell.Value
 
'---------------------------------
 'Vérification des conditions 1 à 72
 
'---------------------------------
 
'test de la condition 1 - 1 (PS PUBLIC sans manquant)
 
If valeur_donne_E20 = "1" Then
 
Sheets("PS").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
 :=True
 Sheets("FRGLE").Select
 ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
 :=True
 Sheets("SPECI").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
 :=True
 Sheets("DCHQ").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
 :=True
 Sheets("SOLDE").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
 :=True
 Sheets("CLISTE").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
 :=True
 Sheets("DONNE").Select
 Range("B4").Select
 Call ThisWorkbook.Mail_PACK
 Else: MsgBox ("Rien à imprimer")
 
'Fin de la vérification des conditions
 End If
 End Sub

Salut, à adapter à ton contexte

Code:

1
2
3
4
5
6
7
8
9
Option Explicit
 
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
 
Sub PrintFichier(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Print", sNomFichier, 0&, 0&, 1)
End Sub

Merci Kiki29 pour votre réponse.
Suis pas trop fort en vba dc j'arrive pas à interpreter ton code a plus forte razison pouvoir l'adapter à mon cas. pouvez-vous m'aider? voici ce que j'ai essayéde faire:j'ai seulement ajouter le chemin d'acces de mon fichier à imprimer. que signifie

Code:

Rep = ShellExecute(hwnd, "Print", sNomFichier, 0&, 0&, 1)

Aussi, le code ci-dessous une fois adapter devra être logé ou (Module, feuille etc)? quand vous aller l'adapter, je préfère le sêparer de mon cade precedent et par la suite l'appeler dans la macro initiale.
Code:

1 2 3 4 5 6 7 8 9 Option Explicit 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 Sub PrintFichier(sNomFichier As String) Dim Rep As Integer Dim hwnd As Long Rep = ShellExecute(hwnd, "Print", "C:\users/benzoplus/desktop/SGIIOC/conditions générales PS.pdf, 0&, 0&, 1" End Sub

Salut, en décomposant

sur ShellExecute voir http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
http://support.microsoft.com/kb/170918

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
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
 
Private Sub PrintFichier(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Print", sNomFichier, 0&, 0&, 1)
End Sub
 
Sub Tst()
Dim sDossier As String
Dim sFichier As String
    sDossier = "C:\Transfert"
    sFichier = "Essai.pdf"
    PrintFichier sDossier & "\" & sFichier
End Sub

merci encore pour tout ce que tu fais.
voici ce que j'ai compris à travers vos explications.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
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
 
Private Sub PrintFichier(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Print", sNomFichier, 0&, 0&, 1)
End Sub
 
Sub Tst()
Dim sDossier As String
Dim sFichier As String
    sDossier = "C:\users/benzoplus/desktop/SGIIOC"
    sFichier = "conditions générales PEA.pdf"
    PrintFichier sDossier & "\" & sFichier
End Sub

J'ai collé le code dans une feuillemais rein ne s'exécute.
Peut-tu voir pour moi.

19/02/2012, 17h37
kiki29

re, à priori dans la chaine

Code:

"C:\users/benzoplus/desktop/SGIIOC"

remplacer / par\ ?
20/02/2012, 12h07
capi81

Merci pour votre aide.
J'ai corrigé ce que tu demandé mais sans suite favorable.
Je te joint mon fichier pour appreciation.
http://cjoint.com/?BBumj48XING
20/02/2012, 12h58
kiki29

re, désolé mais cela fonctionne correctement chez moi.
20/02/2012, 23h07
capi81

Merci infinima kiki29.
Grace à vos conseils tout est rentré dans l'ordre.
:ccool: