Ciao,
devo modificare una parte del testo del nome di una serie di file contenuti in una cartella. La modifica riguarda un aggiornamento ai dati identificativi del file. C'è un modo per evitare la notevole perdita di tempo dell'operazione di rinomina di cascun file?
Esempio:
file1 deve diventare 18-file1
file2 deve diventare 18-file2
file3 deve diventare 18-file3
etc.
file n deve diventare 18-file n

Il prefisso 18- è comune a tutti i file di quella famiglia, contenuta nella medesima cartella.
Grazie assai e buona giornata,
eZio

salve
prova con questa:

Sub RinominaFiles()
Dim Miadir As String
Dim Miofile As String
Dim vecchio As String
Dim Nuovo As String
Miadir = "LA TUA DIRECTORY COMPLETA"
Miofile = Dir(Miadir & "\*.xls")
Do While Left(Miofile, 4) = "file"
vecchio = Miadir & "\" & Miofile
Nuovo = Miadir & "\" & "18-" & Miofile
Name vecchio As Nuovo
Miofile = Dir
Loop
End Sub

Saluti
Giap

---

salve
la macro cerca file con estensione Xls

Miofile = Dir(Miadir & "\*.xls")

se l'estensione dei tuoi file visto che hai 2007 dovrai cercare i file con estensione Xlsx - xlsm dipende
da che tipo sono i tuoi file.
Puoi mettere la macro in un normale file excel perchè usare il file Personal ?

..Left(Miofile, 4) = "file"
significa:
le prime 4 posizioni a sinistra del nome del file = "file"

saluti
Giap

---

salve
puoi eseguire la seguente macro sostituendo il percorso di Miadir:
Crea l'elenco di tutti i file contenuti nella directory:

Sub elencoFilesinDirectory()
n = 1
Miadir = "Tua directory\" ' >>>da cambiare
miofile = Dir(Miadir & "\*.*")
Do While miofile <> ""
Cells(n, 1).Value = miofile
miofile = Dir
n = n + 1
Loop
End Sub

Inserisci la macro in un file vuoto di escel ed eseguila, mostra poi i risultati.
saluti
Giap

---

salve
volevo solo vedere una parte dell'elenco che veniva estratto.
saluti
Giap

---

Salve
ma perchè non fate mai un esempio pari pari alle vostre esigenze?
prova a modificare come segue:

Sub RinominaFiles()
Dim Miadir As String
Dim Miofile As String
Dim vecchio As String
Dim Nuovo As String
Miadir = "LA TUA DIRECTORY COMPLETA"
Miofile = Dir(Miadir & "\*.xlsm")
Do While Left(Miofile, 3) = "MAG"
vecchio = Miadir & "\" & Miofile
Nuovo = Miadir & "\" & "72'43-" & Miofile
Name vecchio As Nuovo
Miofile = Dir
Loop
End Sub

saluti
Giap

---

salve
mi mostri per intero il codice che fai girare?
saluti
Giap

---

salve
Non riesco a replicare il problema che riscontri.
Prova con questa modifica:

Sub RinominaFiles()
Dim Miadir As String
Dim Miofile As String
Dim vecchio As String
Dim Nuovo As String
Dim coll As New Collection
Miadir = "C:\Documents and Settings\User\Documenti\AAA\EZIOEXCEL1\Copia di ELABORAZIONI\Copia di Preparazione"
Miofile = Dir(Miadir & "\*.xlsm")
Do While Left(Miofile, 3) = "MAG"
coll.Add Miofile
Miofile = Dir
Loop
For n = 1 To coll.Count
vecchio = Miadir & "\" & coll(n)
Nuovo = Miadir & "\" & "72'43-" & coll(n)
Name Miadir & "\" & coll(n) As Nuovo
Next n
End Sub
saluti
Giap

---

salve
Se non ti restituisce nessun errore significa che non trova nessun file da elaborare. A questo punto mi fa pensare che il file non cominci con "MAG"

a questo punto fai girare di nuovo questa macro in una cartella vuota
una volta che ti ha creato l'elenco dei file nella cella B1 scrivi questa formula
=Sinistra(A1;3)
fammi sapere il risultato.


Sub elencoFilesinDirectory()
n = 1
Miadir = "C:\Documents and Settings\User\Documenti\AAA\EZIOEXCEL1\Copia di ELABORAZIONI\Copia di Preparazione"
miofile = Dir(Miadir & "\*.*")
Do While miofile <> ""
Cells(n, 1).Value = miofile
miofile = Dir
n = n + 1
Loop
End Sub



Se la cartella contiene solo i file da modificare, possiamo togliere il controllo dell'iniziale del nome file e processarli tutti modificando così la macro:

Sub RinominaFiles()
Dim Miadir As String
Dim Miofile As String
Dim vecchio As String
Dim Nuovo As String
Dim coll As New Collection
Miadir = "C:\Documents and Settings\User\Documenti\AAA\EZIOEXCEL1\Copia di ELABORAZIONI\Copia di Preparazione"
Miofile = Dir(Miadir & "\*.xlsm")
Do While Miofile <> ""
coll.Add Miofile
Miofile = Dir
Loop
For n = 1 To coll.Count
vecchio = Miadir & "\" & coll(n)
Nuovo = Miadir & "\" & "72'43-" & coll(n)
Name Miadir & "\" & coll(n) As Nuovo
Next n
End Sub



saluti
Giap

---

salve
in pratica la prima versione prevedeva che il file della macro fosse contenuto nella stessa directory dei file da
modificare.
Ho scoperto l'errore (una banale svista che faceva uscire dal loop quando la condizione dell'iniziale del nome file diventava falsa).
questa è la correzione:

Sub RinominaFiles()
Dim Miadir As String
Dim Miofile As String
Dim vecchio As String
Dim Nuovo As String
Dim coll As New Collection
Miadir = "C:\Documents and Settings\User\Documenti\AAA\EZIOEXCEL1\Copia di ELABORAZIONI\Copia di Preparazione"
Miofile = Dir(Miadir & "\*.xls")
Do While Left(Miofile, 3) <> ""
If Left(Miofile, 3) = "MAG" Then
coll.Add Miofile
End If
Miofile = Dir
Loop
For n = 1 To coll.Count
vecchio = Miadir & "\" & coll(n)
Nuovo = Miadir & "\" & "72'43-" & coll(n)
Name Miadir & "\" & coll(n) As Nuovo
Next n
End Sub

saluti
Giap

---