Complement impression fichier PDF sur excel

[zombe]

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

Re : Complement impression fichier PDF sur excel

Salut, voir sur [XL-2007] Complement impression fichier pdf via excel - Forum des professionnels en informatique