[Immortal]

Αρχική Δημοσίευση από ChrisGT7

Καλησπέρα Νίκο,

Δοκίμασε τον παρακάτω κώδικα:

Option Explicit

Sub APO8HKEYSH()
    Dim MyPath As String
    MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    With ActiveWorkbook
        .SaveCopyAs MyPath & [LastYear]
        .SaveAs MyPath & [NextYear]
    End With
End Sub

Σύμφωνα με όσα προαναφέρθηκαν παραπάνω και το παράδειγμά σου:
- Στο LastYear θα υπάρχει η τιμή Αρχείο\Το βιβλίο μου 2024 (Για αρχείο).xlsm
- Στο NextYear Το βιβλίο μου 2025.xlsm
- Και στην επιφάνεια ο φάκελος Αρχείο.

Καλημερα Χρήστο, καλό μήνα με υγεία!
Ολοκληρώνοντας κάτι έρχονται ιδέες και για αλλά πράγματα κι έτσι σκέφτηκα πως με τον ίδιο ακριβώς τρόπο, θα μπορούσα να αποθηκεύω και τις ενεργές περιοχές κάποιων φύλλων σε μορφή pdf, αυτό που πρόκειται να εκτυπωθεί δηλαδή.
Οπότε, ακολούθησα τις οδηγίες σου για άλλη μια φορά, γίνεται η διαδικασία κ αποθηκεύονται τα pdf στην διαδρομή που έχω ορίσει.
Το πρόβλημα που συναντώ είναι πως ενώ το pdf αρχείο υπάρχει, δεν μου το ανοίγει.
Μήπως με τη συγκεκριμένη διαδικασία δεν αποθηκεύονται οι ενεργές περιοχές ως έγγραφα αλλά τα φύλλα του βιβλίου γενικότερα;