Microsoft 365 vba intégrer réf onglet dans code sauvegarde

[grevin]

bonjour la communauté,

j'ai une question sur un code vba.

je sauvegarde un fichier au format pdf suivant la macro suivante

"
Sub FICHIERHORAIRE()
'
' SAUVEGARDE DES HORAIRES DE LA SEMAINE AU FORMAT PDF

Range("B2:N8").Select
ChDir "C:\Users\Compta\Desktop"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\ref 2024.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End sub "

je sélectionne une zone de la feuille à sauvegarder et la sauvegarde s'effectue au format pdf.

je souhaite intégrer le nom de l'onglet dans la sauvegarde
ex ref s01 2014.pdf pour l'onglet s01 etc ...

quel code dois je rajouter pour obtenir le résultat souhaité ?

vous remerciant par avance de votre aide

vincent

 

[Dranreb]

Bonjour.
… , Filename:="C:\ref " & ActiveSheet.Name & " 2024.pdf", …

 

[patricktoulon]

re
Bonjour
comme ça en passant et en coup de vent

Sub FICHIERHORAIRE()
' SAUVEGARDE DES HORAIRES DE LA SEMAINE AU FORMAT PDF
    Dim Chemin
    'ChDir "C:\Users\Compta\Desktop"'inutile si tu n'utilise pas de dialog folder par la suite
    With Range("B2:N8")
        Chemin = "C:\" & .Parent.Name & " ref 2024.pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
                             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub