Io ho aggiornato da Silop e poi con lo script che aggiorna da lottologia che allego
Option Explicit
Sub Main
Dim sDirTemp
Dim sLink
Dim nAnnoPart,nAnnoCorr,sNuovaData
Dim k
Dim id
Dim sDataEstr,sCData,nSalvate,sFileBd
Dim sV,r,e,x
Dim b,nEstrTot,sDataLastEstr,iA,z...