Document HTML transférant les infos dans un fichier Excel!!!

bonjour

ce n'est pas évident de répondre sans voir le format de la page , mais tu
peux tester ce genre de procedure pour importer les données d'un table html

Private Sub CommandButton1_Click()
'activer la reference Microsoft HTML Objects Library
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim j As Integer, i As Integer

WebBrowser1.Navigate "http://www.maPageWeb.htm"
Do
DoEvents
Loop While WebBrowser1.Busy


Set maPageHtml = WebBrowser1.Document
Set Htable = maPageHtml.getElementsByTagName("table") 'objet type table
Set maTable = Htable(3) 'le 4 ieme tableau dans la page Web

For i = 1 To maTable.Rows.Length 'boucle sur toutes les lignes du tableau

For j = 1 To maTable.Rows(i - 1).Cells.Length 'boucle sur les cellules dans
chaque ligne
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
Next j

Next i
End Sub


bon week end
michel



"One-Leg" wrote:

Bonjour,

J'aimerais créer un fichier HTML dans lequel on doit entrer la date,
l'heure, le nom et le département. Un coup terminer, j'aimerais avoir un
bouton "SEND" qui fera en sorte de prendre les infos et de les transférer
dans un fichier Excel prédéfini.

J'aimerais que dans le fichier Excel, que le fichier s'ouvre par lui même,
que les infos y soit ajouter, que le tout se sauvegarde et que le fichier
Excel se ferme par lui même.

Merci de votre aide.