Grazie Franco ho risolto.
però partivo da un punto iniziale diverso, il file excel era di fatti un' estrazione di una query di access , automatizzata in vba con il seguente comando:
DoCmd.OutputTo acOutputQuery, QueryConvExcel, acFormatXLSX, Percorso
Vorrei eliminare la richiesta di sovrascrizione; ho provato con .save anzichè .SAveAs senza successo, ma la cosa più tragica è quella della richiesta: “Aggiungere etichetta di riservatezza”.
Questo Problema lo avevo risolto con invio di Mail automatiche, creando un modello di mail, mi auguro che ci sia un modo in vba per risolvere, anzichè modificare tutto e ricominciare da capo.
Queste conferme bloccano, degli automatismi a cadenza settimanale che non devono prevedere necessariamente la mia presenza.
Queste EStrazioni prevedono successivamente delle importazioni, sempre in automatico, che mi aggiornano alcune tabelle sul db.
Spero ancora nella tua gentilissima disponibilità.
se quel 65 è l'anno di nascita, sono più vecchio di te di anni 3 :-)
Sub ESTRAI_PER_Aggiornamento_Figure_di_Legge()
Dim gg As Integer
gg = DLookup("[Figure_di_Legge_GG]", "servizio1")
data_estr = DLookup("[Data_Figure_Legge]", "servizio1")
If Date >= data_estr + gg Then
'Estraggo Ingegneria
QueryConvExcel = "Q_Estrazione_Figure di Legge_ST_ING"
Percorso = DLookup("[Folder_Figure_legge_EStrazione]", "Servizio1") & DLookup("[ING]", "Servizio1")
Percorso = Percorso & "Estrazione Figure di Legge_ING.xlsx"
DoCmd.OutputTo acOutputQuery, QueryConvExcel, acFormatXLSX, Percorso
OpenExcelFile (Percorso) 'Grazie a Franco65 - I Programmatori- questa è la funzione Sistemata Grazie alla tua gentilissima cortesia e disponibilità.
'Estraggo UT_Nodo
QueryConvExcel = "Q_Estrazione_Figure di Legge_ST_UT_NODO"
Percorso = DLookup("[Folder_Figure_legge_EStrazione]", "Servizio1") & DLookup("[UT_NODO]", "Servizio1")
Percorso = Percorso & "Estrazione Figure di Legge_ST_UT_NODO.xlsx"
DoCmd.OutputTo acOutputQuery, QueryConvExcel, acFormatXLSX, Percorso
OpenExcelFile (Percorso)
'Estraggo UT_NordEst
QueryConvExcel = "Q_Estrazione_Figure di Legge_ST_UTNE"
Percorso = DLookup("[Folder_Figure_legge_EStrazione]", "Servizio1") & DLookup("[UT_NE]", "Servizio1")
Percorso = Percorso & "Estrazione Figure di Legge_ST_UTNE.xlsx"
DoCmd.OutputTo acOutputQuery, QueryConvExcel, acFormatXLSX, Percorso
OpenExcelFile (Percorso)
'Estraggo UT_SudEst
QueryConvExcel = "Q_Estrazione_Figure di Legge_ST_UTSE"
Percorso = DLookup("[Folder_Figure_legge_EStrazione]", "Servizio1") & DLookup("[UT_SE]", "Servizio1")
Percorso = Percorso & "Estrazione Figure di Legge_ST_UTSE.xlsx"
DoCmd.OutputTo acOutputQuery, QueryConvExcel, acFormatXLSX, Percorso
OpenExcelFile (Percorso)
'\more