Code :
Sub testpdf() ' ' testpdf Macro ' Dim nom, destination As Variant nom = Sheets("Dénomination" ).Range("d3" ).Value ' Sheets(Array("LETTRE accord", "TABLEAU ET ANNEX", "autorisation de prelevement", _ "devis", "bon de commande", "CONVENTION ", "MANDAT " )). _ Select Sheets("LETTRE accord" ).Activate ChDir _ "Y:\DOSSIER ADMINISTRATIF\DEVIS \LM GENEREE PDF" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ destination & nom & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False End Sub
|