[VBA] Αποθήκευση αρχείου

[ChrisGT7]

Καλησπέρα σας και καλή εβδομάδα,

Νίκο, σε συνέχεια του μηνύματος του Τάσου, παραθέτω και ένα παράδειγμα κώδικα:

Sub APO8HKEYSH()
    Dim MyPath As String
    MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    ActiveWorkbook.SaveCopyAs MyPath & _
        "Αρχείο\Το βιβλίο μου 2024 (Για αρχείο).xlsm"
    
    ActiveWorkbook.SaveAs MyPath & _
        "Το βιβλίο μου 2025.xlsm"
End Sub

Η μεταβλητή MyPath νομίζω πως απαντάει και στο ερώτημά σου για την εύρεση του φακέλου της επιφάνειας εργασίας σε άλλους υπολογιστές.

[Immortal]

Καλησπέρα σας και καλή εβδομάδα!

Τάσο σε ευχαριστώ πολύ για τος αναλυτικές και κατανοητές πληροφορίες!

Χρήστο σε ευχαριστώ κι εσένα για την πρόταση που δίνεις, θα την δοκιμάσω και θα επανέλθω!
Μια λεπτομέρεια μόνο γιατί δεν το έχω δοκιμάσει ακόμη, στο παράδειγμα που δίνεις, κατά την λειτουργία του SaveCopyAs θα πρέπει ο φάκελος Αρχείο να υπάρχει ήδη στην επιφάνεια σωστά;

[Immortal]

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

Sub APO8HKEYSH()
    Dim MyPath As String
    MyPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    ActiveWorkbook.SaveCopyAs MyPath & _
        "Αρχείο\Το βιβλίο μου 2024 (Για αρχείο).xlsm"
    
    ActiveWorkbook.SaveAs MyPath & _
        "Το βιβλίο μου 2025.xlsm"
End Sub

Χρήστο καλησπέρα! Υπάρχει περίπτωση στα Save που έχω κοκκινίσει το 2024 και το 2025, να έρχonται από ένα κελί το οποίο έχω ονομάσει LastYear για το 2024 και NextYear για το 2025;