Microsoft 365 envoi d'un fichier excel via outlook en pdf

Sub copie_format_PDF() 'code copie en PDF et classement

Feuil7.Range("d6:j6").Value = Feuil7.ComboBox1.Value
Dim sNomDossier As String
Dim sNomFichierPDF As String

    sNomDossier = ThisWorkbook.Path
  
    sNomFichierPDF = Format(Feuil7.Range("l3"), "dddd dd mmmm yyyy") & "   n° " & Range("z58") 'nom du fichier + N° de document
  
     sNomDossier = ThisWorkbook.Path & "\année 2023\" & Format(Feuil7.Range("l3 "), "mmmm yyyy") & "\"
  
    If Len(sNomFichierPDF) > 0 Then
        If NomFichierValide(sNomFichierPDF) Then
            'ActiveSheet
            Feuil7.ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=sNomDossier & "/" & _
                                                      sNomFichierPDF & ".pdf" _
                                                      , Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
        Else
            Feuil7.Range("l3").Select
            MsgBox "ERREUR sur le nom du fichier", vbOKOnly + vbInformation, "Nom de Fichier"
        End If
    End If
 

End Sub