Trovare path di lavoro



  • Trovare path di lavoro
    di Rob (utente non iscritto) data: 19/07/2011

    Per fare una macro che mi faccia una copia della cartella (e delle sottocartelle) dove si trova il mio workbook, in un'altra cartella..
    con activeworkbook.path riesco a trovare il percorso ma a me serve selezionare la cartella superiore. ad es. se il mio faile è in c:excelmiofileworkbook.xlsm al risultato devo eliminare miofile quindi avere c:excel per poi poter salvare tutta la cartella miofile.. non so se sono stato chiaro provo ad inserire parte del codice che ho fatto.. in poche parole funziona per una cartella posta nella stessa directory del file .xlsm.. sapete aiutarmi????
     
    ....
            'Copia la cartella Dati nella Directory in base a quanto inserito in ValoreDir:
            fso.CopyFolder ActiveWorkbook.Path & "Prova-backup", ValoreDir
            Set fso = Nothing
            MsgBox "I dati sono stati copiati con successo nella directory  " & ValoreDir, vbInformation, "Creazione copia di Backup"
            Exit Sub
        End If
    .....