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

grevin

XLDnaute Nouveau
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
 

patricktoulon

XLDnaute Barbatruc
re
Bonjour
comme ça en passant et en coup de vent
VB:
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
 

Discussions similaires

Réponses
3
Affichages
476
Réponses
2
Affichages
359

Statistiques des forums

Discussions
313 198
Messages
2 096 142
Membres
106 505
dernier inscrit
ngomez