Aggiornamento automatico dati collegati tra 3 files diversi

dodo47, 10/12/2017 17.08:

---

Ciao Marco
problema complesso senza vedere i tuoi file (MASTER-BB1(ne basta 1)-RIEPILOGO).

Una curiosità:
- perchè i "file secondari "sono così numerosi" visto che hanno tutti la medesima struttura e formule ?

-> ciascun file fa riferimento ad una coppia di valori (sempre diversi) su cui applico però le stesse operazioni matematiche

A parte questo, per quanto riguarda:

---

"Ho cercato in giro come gestire l'aggiornamento automatico dei collegamenti, in modo "da forzarlo" e non dover aprire ciascun singolo file del secondo gruppo per avere i dati aggiornati ad ogni ciclo di aggiornamento del file Master (la cosa che a mio parere, mi risolverebbe tutti i problemi, andando a modificare la struttura del file Riepilogo, facendolo puntare a sua volta ai singoli file del secondo gruppo), ma non ho trovato nulla in proposito..."

---

Se i file "secondari" fossero tutti nella medesima cartella, potresti fare (escludendo eventualmente MASTER e RIEPILOGO), qualcosa del genere:

Sub refreshALL() 
 Dim fso As Object 
 Dim folder As Object 
 Dim file As Object 
 Path = "C:\TuaCartella\" '>>>>>>>>Modificare 
 Set fso = CreateObject("Scripting.FileSystemObject") 
 Set folder = fso.GetFolder(Path) 
 
 With Application 
 .DisplayAlerts = False 
 .ScreenUpdating = False 
 .EnableEvents = False 
 .AskToUpdateLinks = False 
 End With 
 For Each file In folder.Files 
 
'>>>>>>>>>>>>>>>QUI L'EVENTUALE ESCLUSIONE DI FILE <<<<<<<<< 
 
 If Right(file.Name, 4) = "xlsx" Then 
 Workbooks.Open Path & file.Name 
 ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 
 ActiveWorkbook.Close True 
 End If 
 Next 
 With Application 
 .DisplayAlerts = True 
 .ScreenUpdating = True 
 .EnableEvents = True 
 .AskToUpdateLinks = True 
 End With 
Set fso = Nothing 
End Sub

A questo punto dovresti avere tutti i file aggiornati (valuta i tempi di esecuzione e magari fai un controllo a campione per sicurezza).

-> i file sono tutti nella stessa cartella, ed ho effettuato un controllo come da te suggerito; effettivamente ci impeiaga alcuni minuti di meno a "refreshare" i files :-) grazie per la dritta

Ora, però, nell'eseguire la macro di "Riepilogo" dovresti all'inizio, non solo utilizzare:

-Application.ScreenUpdating = False
ma soprattutto:
-Application.DisplayAlerts = False
-Application.EnableEvents =False

Per poi ripristinarli alla fine, in modo tale che excel non ti chieda il "refresh" delle formule.

Fai qualche prova.

-> ho fatto alcuni test, ma in questo caso non ho avuto un miglioramento

Ti ricordo infine che ci sono modi diversi di leggere file esterni "senza aprirli fisicamente". In rete ne trovi diversi (QUI trovi un esempio).
All'interno di quel link ne trovi un altro che potrebbe particolarmente interessarti:" How to Read Multiple Excel Files and Merge Data into a Single File using VBA"

-> ora mi studio il VBA del link che mi hai fornito, ma credo che il punto cruciale sia che, con la mia macro, aprendo i file del secondo gruppo e leggendoli, faccio le operazioni contemporaneamente (aggiornamento dei dati dei file del secondo gruppo, collegati al file Master del primo gruppo, e copia dei valori sul file finale Riepilogo). Ergo andando a leggere i file "da fisicamente chiusi", avrei sempre il problema del refresh (al quale posso ovviare però con il tuo codice)... devo verificare la somma totale dei tempi (mia macro, che fa 3 operazioni - apertura, aggiornamento e lettura/copia - Vs. codice refresh + VBA lettura file, ma senza aprirli fisicamente)

grazie cmq per le info che mi hai dato, continuo a provare!

Saluti

---