Buongiorno,
uso excel ma di VBA non so assolutamente niente , cercando in rete sono arrivato ad aggiustare questo codice per le mie esigenze, ma non fa esattamente quello di cui ho bisogno.
Dovrei copiare alcuni file da una cartella ad un'altra seguendo delle liste in file excel
Ho delle distinte componenti fatte con excel , la prima colonna è composta dal nome file (senza estensione) da copiare
Quindi ho creato un altro file excel (Copia_file.xlsm che purtroppo non da la possibilità di allegarlo) di appoggio perchè i file delle distinte non li posso modificare copiando il valore dei nomi dei file nella prima colonna . ho inserito il codice trovato in rete e copia il file del primo campo con l'estensione indicata nella cartella scelta.
Io però ho due tipi di estensioni file e più file nella lista, è possibile modificare il codice affinchè copi tutti i file presenti nella prima colonna con entrambe le estensioni se presenti .
Sub FileFindCopy()
mfolder = Range("D2") & "\"
newfolder = Range("E2") & "\"
stfind = Range("A2")
ext = Range("B2")
fn = Dir(mfolder & stfind & ext)
Do While fn <> ""
FileCopy mfolder & fn, newfolder & fn
fn = Dir
Loop
End Sub
spero di essermi espresso bene
grazie mille