Enregistrer un fichier excel en pdf avec VBA

Bonjour,

Je souhaiterais enregistrer une feuille de mon classeur excel (qui en compte 4) au format pdf grâce à un code VBA. Je souhaiterais également que la date soit inclus dans le nom du fichier pdf. Le problème, c'est que ça ne fonctionne pas...

Voici mon code :




Sub Exporter_pdf_1()

Sheets("Feuil2").Cells(13, 6).Value = ""

If Sheets("Feuil1").Cells(1, 3).Value <> "" Then

Sheets("Feuil1").Select

ActiveWorkbook.SaveAs Filename:="Macintosh HD:Users:Arthur:Documents:Agenda 1S8 (.pdf) - " & Date & ".pdf", FileFormat:=xlPDF, PublishOption:=xlSheet

Else

Sheets("Feuil2").Cells(13, 6).Value = "Rien à exporter"

End If

End Sub




Merci pour vos réponses.