Bonjour Etienne301084,
Macro pour enregistrer en PDF (macro de Mytå): à adapter à tes besoins
Sub CreerPDF()
Dim sRep As String
Dim sFilename As String
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
sRep = ThisWorkbook.Path
sFilename = ThisWorkbook.Name
sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Par contre pour l'affichage du PDF en mode "onglets", je ne sais pas.....
Cordialement,