Sauvegarder un fichier du Web régulièrement

[bigbig]

Sauvegarder un fichier du Web régulièrement [Résolu]

Bonjour à tous,

Un site du web crée un fichier .zip 1 fois par jour.
Malheureusement le nouveau fichier supprime le précédent qui n'est pas archiver.

Les personnes gérants le site ont d'autres priorité et feront pas de modif avant plusieurs mois !

Actuellement, j'enregistre manuellement les fichiers mais dès que j'oubli ou que je suis absent il y a un trou très génant...

J'ai donc penser me faire une petite application en VBA excel (ou en VB) qui serait toujours active et qui m'enregistrerais automatiquement, toutes les 12h, ces fichiers.

Mon problème est de savoir comment acceder à partir du VBA à ce fichier sur le web et le rapatrier ? Je n'en ai aucune idée...
(Pour les autres détails ça devrait aller)

Merci de votre aide, A+

 

[MichelXld]

Re : Sauvegarder un fichier du Web régulièrement

bonsoir


Tu peux utiliser ce type de procédure (si tu n'accèdes pas au site par un mot de passe)

Option Explicit

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

Private Const ERROR_SUCCESS As Long = 0

Sub LancementProcedure()
    DownloadFile "[URL]ftp://ftp.monsite.com/fichier.zip[/URL]", "C:\sauvegarde.zip"
End Sub
 
Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
    Dim lngRetVal As Long
    DownloadFile = URLDownloadToFile(0&, sURL, _
        sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

Bonne soirée
MichelXld

 

[bigbig]

Re : Sauvegarder un fichier du Web régulièrement

Bonsoir,

Je viens de tester et celà marche parfaitement !

Merci encore, A+