Buon Giorno a Tutti ; mi chiamo Maurizio , Ho un Problema che mi piacerebbe Risolvere , malgrado i miei Svariati tentativi , nel Capire Come fare ; Il Problema e Questo : Su di un Foglio di Excel o inserito un Pulsante che dovrebbe richiamare una Funzione che è all'interno di un modulo .
Fatto ciò io desidererei che al Premere di questo tasto Venga Aperto il File di Excel Denominato (MioFile) o (ArchivioStorico) .
Per fare tutto ciò Pero ; non Vorrei Usare la Classica procedura , di qui Io sia Costretto ad usare Tutto il Percorso , come ad Esempio : "C:\Documenti\Nuova Cartella\Utility\MioFile.xlsx" ecc...! .
Questo tipo di Estensione non mi piace in Quanto , il Foglio di Excel da Aprire , e Già Stato Denominato e preparato in tutte le sue parti da me .
Per qui trovandosi già All'interno della mia cartella di lavoro dasidererei poter Aprire soltanto quella ; anche se tale Programma che lo Contiene venisse spostato su di un altro Computer o cartella che sia .
Ecco Perché Desidero semplicemente Indicare Il Nome Della cartella che lo Occupa ; e il Nome del file di Excel da Aprire .
Io premetto che o voluto provare molte Soluzioni che Conoscevo , ma nulla mi hanno dato Esito Positivo , mi sapete Spiegare il perché .
Una mia soluzione più logica Poteva Essere Questa :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVallpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Sub ApriFile()
Dim X As Long
X = ShellExecute(hwnd, "Open", ThisWorkbook.Path & "\Utility\ArchivioStorico.Xslx", vbNullString, vbNullString, SW_NORMAL)
End Sub
Ma non Funzione , Perché Grazie Infinite a tutti coloro che vorranno darmi dei suggerimenti in merito . Saluti da A. Maurizio