FVisa.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path _
& "\Réception—" & VLgn(1, 1) & "—" & Format(Date, "yyyy-mm-dd") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False