Discussion :

[BENSAISAI]

Bonjour à tous et à toutes,

J’aimerais de l’aide pour créer un script vbs qui permet de copier un fichier html à partir d’un serveur web:

http://10.126.52.150:8080/g/PDM/PDM2-16:11:2009.html

De l’enregistrer sous U:\Document\Serveurs\Suivi\Rapport_sauvegardes.xls
Et que ce script s’exécute une fois par jour le matin à 09h00 part exemple.

Le problème c’est que le fichier html change de nom tous les jours avec la date du jour, et n’est accessible que via le serveur http.

Ex : http://10.126.52.150:8080/g/PDM/PDM2-16:11:2009.html -> 16/11/2009
Ex : http://10.126.52.150:8080/g/PDM/PDM2-15:11:2009.html -> 15/11/2009

Merci pour votre aide et/ou vos conseils.

[pc75]

Bonjour,

Un début de piste.

Ce script se connecte à l'adresse construite avec la date du jour.
La variable "Contenu" représente la source de la page.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Silent = True
 
' Formatage de la date
Jour = Day(Now)
Mois = Month(Now)
Annee = Year(Now)
DateJour = Jour & ":" & Mois & ":" & Annee
URL = "http://10.126.52.150:8080/g/PDM/PDM2-" & DateJour & ".html"
 
IE.Navigate URL
 
Do Until IE.ReadyState = READYSTATE_COMPLETE
   DoEvents
Loop 'attend la fin du chargement
Contenu = IE.Document.DocumentElement.innerHTML
 
msgbox Contenu
 
IE.Quit
Set IE = Nothing

PS : Pas testé