Bonjour à tous
Voila mon soucis j'ai voulus faire une macro afin de sauvegarde en PDF le sheet dans laquelle je travail sous un lien x avec le nom de la sheet utilisé plus la date du jour
En c3 j'ai le nom de ma sheet
Voici mon code :
Sub Macro7()
Sheets("Oostende").Select
ActiveSheet.Buttons.Add(477, 31.5, 52.5, 15.75).Select
Sheets("Oostende").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\OSS_Shared\Delhaize Direct\Harchives Visites-Stores\c3 & Format(Date, dd - mm - yyyy).pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWindow.Close
End Sub
Un grand merci déjà d'avance
Voila mon soucis j'ai voulus faire une macro afin de sauvegarde en PDF le sheet dans laquelle je travail sous un lien x avec le nom de la sheet utilisé plus la date du jour
En c3 j'ai le nom de ma sheet
Voici mon code :
Sub Macro7()
Sheets("Oostende").Select
ActiveSheet.Buttons.Add(477, 31.5, 52.5, 15.75).Select
Sheets("Oostende").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\OSS_Shared\Delhaize Direct\Harchives Visites-Stores\c3 & Format(Date, dd - mm - yyyy).pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWindow.Close
End Sub
Un grand merci déjà d'avance