Dim LaDate As String
Dim LeClient As String
Dim LeNomClient As String
Dim LObjet As String
Dim LeRep As String
Dim Mess As String
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
LeClient = Worksheets("+ total").Range("C3").Value
LeNomClient = Worksheets("+ total").Range("D3").Value
LObjet = Worksheets("+ total").Range("D4").Value
LeRep = "N:\DOM\VKFS\VOKA\Offres PDF"
Worksheets("+ total").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"N:\ZZZ\YYY\XXX\Offres PDF" & "\" & LeClient & "_" & LeNomClient & "_" & LaDate & "_" & LObjet & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False