je besoin que quel qu'un me corrige se code soit L31 le nombre de page a enregistre de la feuil carte du jour
' Macro1 Macro
'
'
Sheets(Array("recu", "tab3", ("carte du jour") From:=1, To:=Sheets("tab3").Range("L31")).Select
ChDir "C:\Users\BENAMOR\Desktop\123"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\BENAMOR\Desktop\123\date.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub