Sub Tst_2007()
Dim sNomDossier As String
Dim sNomFichierPDF As String
sNomDossier = ThisWorkbook.Path
sNomFichierPDF = Format(Feuil1.Range("S5"), "dddd dd mmmm yyyy")
'sNomFichierPDF = Trim$(Feuil1.Range("S5"))
If Len(sNomFichierPDF) > 0 Then
If NomFichierValide(sNomFichierPDF) Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,_
Filename:=sNomDossier & "/" & _
sNomFichierPDF & ".pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
Feuil1.Range("S5").Select
MsgBox "Nom de fichier invalide", vbOKOnly + vbInformation, "Nom de Fichier"
End If
End If
End Sub