Bonjour,
A partir de l’enregistreur de macro, après avoir sélectionner toutes les feuilles.
Sub Macro3()
'
' Macro3 Macro
'
'
Sheets(Array("Base", "Planning")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\telechargements\PLANNING TYPE.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Crdmt