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