Excel aprire file excel senza conoscere il nomefile giusto

[Francesco53]

Buongiorno a tutto il Forum, ho una difficoltà da superare.
In una cartella ho due soli files uno chiamato "Elabora" ed un secondo con il nomefile che cambia ogni volta che si scarica da web.
Spiego meglio il nome del file Fatture è preceduto dalla data es.: "20190605_Fatture.xls".
Dovendo copiare i dati in altro Workbook sono costretto prima ad aprirlo e poi modificare la macro con il nuovo nome.

Codice: Seleziona tutto

'metto i riferimenti ai files
    Set wk1 = ThisWorkbook  'Elabora
    Set wk2 = Workbooks("20190605_Fatture.xls")

La mia domanda è la seguente, essendo il file "Elabora" aperto, c'è la possibilità di far aprire l'altro file senza digitare il nome?
visto che rimane solo quello oltre a "Elabora"?
c'è la possibilità di utilizzare qualche carattere che sostituisca la data?
Es.:

Codice: Seleziona tutto

Workbooks.Open Filename:=ActiveWorkbook.Path & "\*_Fatture.xls"

per farlo aprire dalla macro?

Ringrazio chi può essermi di aiuto,
Francesco

[Anthony47]

Probabilmente (ma alla cieca) ti funzionera':

Codice: Seleziona tutto

myF = Dir(ThisWorkbook.Path & "\*_Fatture.xls")
If myF <> "" Then
    Set Wk2 = Workbooks.Open(ThisWorkbook.Path & "\" & myF)
    '
    'qui inserisci il tuo codice
    '
Else
    MsgBox ("Nessun file trovato, processo abortito")
    Exit Sub               '??
End If


Ciao

[Francesco53]

Grazie Anthony, perfetto come sempre.
Francesco