Récupérer des données format html dans un Excel

stt64 Messages postés 1 Date d'inscription lundi 27 décembre 2010 Statut Membre Dernière intervention 27 décembre 2010 - 27 déc. 2010 à 15:24
zakios9 Messages postés 1 Date d'inscription mercredi 29 décembre 2010 Statut Membre Dernière intervention 29 décembre 2010 - 29 déc. 2010 à 19:13
Bonjour à tous,

J'ai récuperer un programme présent dans un post ici : http://groupes.codes-sources.com/article-recuperer-donnees-format-html-dans-tableau-excel-correc-238264.aspx
soit :

Public Sub récupérer_mes_données_html()

Dim sht As Worksheet             ' la feuille de rapatriement
Dim url As String                 ' l'adresse url (internet ou locale)

' le fichier rapatrié est le fichier bookmarks.html, présent sur mon bureau Windows
url = "http://www.gpro.net/gb/AvailDrivers.asp"
Set sht = Sheets("feuil1")
' attention : la manip suivante efface toutes les données présentes sur la feuille temp
' (moyen efficace pour tout réinitialiser)
sht.Cells.Clear
' la procédure de rapatriement proprement dite
With sht.QueryTables.Add("URL;" & url & "", sht.Range("A1"))
  'sht.range("A1") = cellule cible où doit être rapatrié le tableau html
.RefreshStyle = Excel.XlCellInsertionMode.xlInsertDeleteCells
.SaveData = True
.Refresh BackgroundQuery:=False
End With
' manipulations pour une meilleure présentation
sht.Cells.MergeCells = False         'supprime toutes les celules fusionnées dans la feuille
sht.Cells.EntireColumn.AutoFit        'adapte la largeur des colonnes au contenu des cellules

End Sub


Le problème que je rencontre est que ce site me demande un login et mot de passe pour pouvoir accéder au contenu.
Comment puis-je résoudre ce problème?

Merci par avance
Stephane

1 réponse

zakios9 Messages postés 1 Date d'inscription mercredi 29 décembre 2010 Statut Membre Dernière intervention 29 décembre 2010
29 déc. 2010 à 19:13
0
Rejoignez-nous