Discussion :

[capi81]

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 :

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
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

[kiki29]

Salut, à adapter à ton contexte

Code :

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

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

[capi81]

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 :

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

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 :

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

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

[kiki29]

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 :

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
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

[capi81]

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

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
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.

[kiki29]

re, à priori dans la chaine

Code :

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

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

remplacer / par\ ?

[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

[kiki29]

re, désolé mais cela fonctionne correctement chez moi.

[capi81]

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