Téléchargement directement du net une mise à jour

[Temjeh]

Bonjour et merci d'avance

J'aimerais savoir si il y a un code pour faire une mise à jour directement du net.

Exemple fictive:
httt://www.blablablamonsite.com/demo.xlsm


Kill "E:\Users\Temjeh\Desktop\demo.xlsml"

remplace par httt://www.blablablamonsite.com/demo.xlsm

Le code downloandrait ce fichier et remplacerait l'existant.

Merci pour votre aide

Temjeh

 

[Temjeh]

Re : Téléchargement directement du net une mise à jour

J'ai trouvé:

Option Explicit
Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As String) As Boolean
     'Thanks Mentalis:)
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFileA(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
 
Public Sub Example1()
    DownloadFile "http://www.blabla/Terr.xlsm", _
        "C:\Users\Temjeh\Desktop\i\Terr.xlsm"
End Sub

 

[RENAUDER]

Re : Téléchargement directement du net une mise à jour

Bonjour,
Voici un exemple qui travaille dans les 2 sens.
Local --> Serveur
Serveur --> Local