Sub EnregistrePDF()
resto = "xxxx"
restopdf = "wwww"
ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\Restaurant " & resto & "\2016\Menu PDF\" & restopdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
ActiveWorkbook.FollowHyperlink Address:="http://xxxx.net/home/nl/restaurant/Documents/Forms/AllItems.aspx"
End Sub