Verificar versión del fichero.

[Jose_Monica]

Buenos días a tod@s
Tengo un fichero complemento Excel (.xlam) creado para que todos los usuarios del departamento,
usen las mismas plantillas y documentos.

Cuando creo una nueva versión del fichero, tengo que pasar un email a todos, incluyendo el nuevo,
para que sustituyan el fichero que tienen, por el de la nueva versión.

Agradecería vuestros conocimientos y ayuda, para que de una forma automática, por vba,
comparar la versión que tienen ellos, con la nueva que se ha echo y si tienen una anterior,
que avise al usuario y sustituya un fichero por otro automáticamente.

Decir que no hay problema en tener una carpeta común, porque utilizamos un servidor donde
disponemos de varias carpetas, donde tenemos acceso todos para el trabajo diario, por lo que
el fichero "padre" podría ponerse allí.

Es mucho pedir ?
La verdad, es que no sé por donde comenzar.

Como siempre ... mil gracias por vuestro tiempo y por compartir vuestros conocimientos !!!!!
Saludos.

[Héctor Miguel]

mira por aqui (tiene años funcionando...)

Updating An Add-In Through The Internet

[Jose_Monica]

Hola @Héctor Miguel, buenos días.

Le echo un vistazo, muchas gracias !!

[Jose_Monica]

Buenas.

Varias consultas; disculpa pero mi conocimiento de programación, es pequeño.

Sale el aviso que esta función, debe actualizarse a 64 bits ... como se hace ?

Public Declare Function InternetGetConnectedState _
                         Lib "wininet.dll" (lpdwFlags As Long, _
                                            ByVal dwReserved As Long) As Boolean

 

En el módulo de clase, este texto, también se queda en rojo ...

Private Declare Function URLDownloadToFile Lib "urlmon" _
                                           Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
                                                                       ByVal szURL As String, ByVal szFileName As String, _
                                                                       ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

 

En lugar de utilizar una página web, aquí puedo poner la ruta donde están la nueva versión del complemento no ?

 'URL which contains build # of new version
        .CheckURL = "http://www.jkp-ads.com/Updateanaddinbuild.asp"
        .DownloadName = "http://www.jkp-ads.com/downloadscript.asp?filename=" & ThisWorkbook.Name
        'Started check automatically or manually?

 

Por último, donde comprueba la versión ?

Donde se encuentra el número en el complemento actual a comprobar ?

 'Check once a week
        If (Now - .LastUpdate >= 7) Or bManual Then
            .LastUpdate = Int(Now)
            .DoUpdate

Public Property Get LastUpdate() As Date
    Dim dtNow As Date
    On Error GoTo LocErr
    dtNow = Int(Now)
    mdtLastUpdate = CDate(GetSetting(AppName, "Updates", "LastUpdate", "0"))
    If mdtLastUpdate = 0 Then
        'Never checked for an update, save today!
        LastUpdate = dtNow
    End If
    LastUpdate = mdtLastUpdate
TidyUp:
    On Error GoTo 0
    Exit Property
LocErr:
    Select Case ReportError(Err.Description, Err.Number, "LastUpdate", "Class Module clsUpdate")
    Case vbRetry
        Resume
    Case vbIgnore
        Resume Next
    Case vbAbort
        Resume TidyUp
    End Select
End Property
 

Muchas gracias por tu dedicación, tu tiempo y ayuda !!!