VBA Cercare e aprire un file in automatico

Question

Ciao, 

utilizzando questo codice riesco a far aprire una finestra dove mi si chiede di selezionare un determinato file, per poi incollarlo nel mio file e aggiornare la pivot, tutto tramite macro. 

Quello che vorrei è che il file venisse cercato automaticamente in tutte le sottocartelle, partendo dalla posizione del mio file.

Sub Macro1()

Dim fDialog As Office.FileDialog

 Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog

        .AllowMultiSelect = False

        .Title = "INSERISCI FILE 1"

        .InitialFileName = ThisWorkbook.Path & "\Doc"

        If .Show = -1 Then

            For Each cavo In .SelectedItems

                FileDaAprire = cavo

            Next

        Else

        MsgBox "Operazione annullata!", vbInformation

        Exit Sub

        End If

    End With

    Application.Workbooks.Open (FileDaAprire)

    Range("A2:G2").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Copy

    Windows("AUTOMATICO.xlsm").Activate

    Sheets("file_1").Select

    Range("A2").Select

    ActiveSheet.Paste

    Range("H2").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = "=RC[-1]*1.1"

    Range("H2").Select

    Selection.AutoFill Destination:=Range("H2:H534")

    Range("H2:H534").Select

    ActiveWindow.SmallScroll Down:=54

    Sheets("file_1").Select

    ActiveWindow.SmallScroll Down:=-78

    Range("K9").Select

    ActiveSheet.PivotTables("Tabella pivot3").PivotCache.Refresh

    Application.Workbooks.Open (FileDaAprire)

    ActiveWindow.Close

End Sub

grazie mille in anticipo

Answer 1

Ciao, 

nello specifico deve cercare un singolo file, solo che si potrebbe trovare in una solo sottocartella dove è il file con il codice. 

Esempio: il mio file con codice, chiamato "AUTOMATICO.xlsm" viene spostato in una cartella piuttosto che in un altra a seconda di dove deve operare. Una volta lanciato, partendo da dove si trova, dovrà cercare il file "FILE 1.dwg" in tutte le sottocartelle.

Alessandro

Answer 2

Ciao AleQB,

utilizzando questo codice riesco a far aprire una finestra dove mi si chiede di selezionare un determinato file, per poi incollarlo nel mio file e aggiornare la pivot, tutto tramite macro. 

Quello che vorrei è che il file venisse cercato automaticamente in tutte le sottocartelle, partendo dalla posizione del mio file.

[...]

Si tratta d'un file oppure più file?

La ricerca dovrebbe essere eseguita nella cartella in cui si trova il file con il codice e le relative sottodirectory o nelle sottodirectory del file con la finestra di dialogo?

È possibile che ci possano essere più istanze del file nelle sottodirectory di interessi?

===

Regards,

Norman