Ciao,
sto cercando una macro che mi permetta di aprire TUTTI i file *.xlsm contenuti in una cartella, senza dovere ricorrere alla scrittura di ciascun percorso
Workbooks.Open Filename:= _
"C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1\file1.xlsm"
Workbooks.Open Filename:= _
"C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1\file2.xlsm"
etc. fino all'ultimo file contenuto nella cartella
Ho provato a cercare nel web, ma non ho trovato soluzioni soddisfacenti al mio caso.
Grazie assai
eZio

Ciao,
credo (spero) di essere riuscito a scriverne una che faccia il suo lavoro:

Sub Apri_TUTTIfile_Cartella()
Dim MyFolder As String
Dim MyFile As String

MyFolder = "C:\Documents and Settings\User\Documenti\LAVORO_1\Cartella1" '<===== modificare il percorso
MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub

Grazie, buona giornata
eZio