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

grevin · 11 Mars 2024

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 · 11 Mars 2024

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

patricktoulon · 28 Mars 2024

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

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

grevin

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires