Probleme Export d'une feuille en fichier.pdf

Bonjour

Sur la feuille "Stade-Lyc-Col", j'ai un bouton avec une macro associée dont voici le code.

je souhaiterais que la macro créee un fichier pdf ayant pour nom : Stade-Lyc-Col-date-heure.pdf

Mais j'ai un code erreur

l

voici la macro que j'utilise

Sub pdf_mairie()
Dim Chemin As String
classeur = ActiveWorkbook.Name

Chemin = ThisWorkbook.Path & "\PDF-mairie\"

'Création du dossier PDf-mAIRIE s'il n'existe pas
If Dir(Chemin) = """" Then MkDir Chemin

Sheets("Stade-Lyc-Col").Select
Sheets("Stade-Lyc-Col").Activate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & _
classeur & "- (" & Format(Date, "yyyy-mm-dd") & "-" & Format(Time, "hh-mm-ss") & ")", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("Stade-Lyc-Col").Select
End Sub

Quelqu'un aurait-il une idée ?

Merci

Chvalet

Re bonjour

Ca yest , j'ai trouvé :

Voici leamacro qui fonctionne.

Bonne journée

Chvalet

Sub pdf_mairie()
Dim Chemin As String

Chemin = ThisWorkbook.Path & "\PDF-mairie\"

'Création du dossier PDf-Recap s'il n'existe pas
If Dir(Chemin) = """" Then MkDir Chemin

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & _
ActiveSheet.Name & " v- (" & Format(Date, "yyyy-mm-dd") & "-" & Format(Time, "hh-mm-ss") & ")", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Bonjour,

Une proposition !...

Sub pdf_mairie()
Dim wb As Workbook, ws As Worksheet
Dim sFolderPath As String, sFileName As String
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets("Stade-Lyc-Col")
    sFolderPath = wb.Path & "\PDF-mairie\"
    If Dir(sFolderPath) = "" Then MkDir sFolderPath
    sFileName = Split(wb.Name, ".")(0) & " " & Format(Now(), "yyyy-mm-dd-hh-mm-ss") & ".pdf"
    With ws
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sFolderPath & sFileName, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        .Activate
        .Cells(1).Select
    End With
End Sub

Merci pour ta proposition Jean-Eric.