Ciao a tutti, ho questo codice che all'attivazione della macro mi chiede di selezionare un file che poi apre e processa. Quello che vorrei fare è fargli cercare in automatico il file (il nome è sempre lo stesso) all'interno della cartella. Mi aiutate?
Sub Macro1()
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.Title = "INSERISCI EBW_CAVO"
.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("VALIDATORE.xlsm").Activate
Sheets("ebw_cavo").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("ebw_cavo").Select
ActiveWindow.SmallScroll Down:=-78
Range("K9").Select
ActiveSheet.PivotTables("Tabella pivot3").PivotCache.Refresh
Application.Workbooks.Open (FileDaAprire)
ActiveWindow.Close
End Sub