ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\2011\" & Application.Proper(Sheets(1).[e2].Value) & " " & Application.Proper(Sheets(1).Name) & " n° " & Application.Proper(Sheets(1).[C16].Value) & " Ed du " & Application.WorksheetFunction.Proper(Format(Date, "dd mmmm yy")) & ".pdf"