Dim sNomDossier As StringDim sNomFichierPDF As String
sNomDossier = ThisWorkbook.Path
sNomFichierPDF = Format(Feuil1.Range("l5"), "dddd dd mmmm yyyy") & " n° " & Range("z58") 'nom du fichier + N° de document
sNomDossier = ThisWorkbook.Path & "\année 2015\" & Format(Feuil1.Range("l5 "), "mmmm yyyy") & "\"
If Len(sNomFichierPDF) > 0 Then
If NomFichierValide(sNomFichierPDF) Then
'ActiveSheet
'c'est ici que j'ai une erreur
Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomDossier & "/" & _
sNomFichierPDF & ".pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False