Ouvrir une page web et récupérer les données d'un tableau | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 04-03-2023 18h10
Bonjour à tous, |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 03-10-2016 18h23
Bonsoir le forum, MDF,
Après de nombreuses années sans m'occuper de ce fichier j'en ai à nouveau besoin aujourd'hui. Et au lancement petit message d'erreur sur le composant webBrowser. Surement du au fait que je suis sous excel 2016 maintenant.
Mon fichier est trop volumineux et je ne sais pas pourquoi il n'y a rien dedans donc voici le code: Option Explicit 'myDearFriend! - www.mdf-xlpages.com Const UrlDepart As String = "http://joueurfd.com/TEST2/statistique ... AmV4VFlXelhYcE5aHgA" Private Sub btnGo_Click() WebBrowser1.Navigate UrlDepart End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim debut As Integer Dim TabTemp As Variant Dim L2 As Long, Lign As Long Dim Col As Byte Static L As Long If URL = UrlDepart Then If Cells(1, 1).Interior.ColorIndex = xlNone Then L = 0 L = L + 1 With WebBrowser1.Document .all("[LICENCE]").Value = Cells(L, 1).Text .all("B3").Click Cells(L, 1).Interior.ColorIndex = 6 End With ElseIf URL = "http://www.france-darts.com/gestion/htm/LICENCED.ASP" Then Application.ScreenUpdating = False TabTemp = Split(WebBrowser1.Document.Body.InnerText(), vbCrLf) With Sheets("données") Lign = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1 debut = Lign For L2 = 0 To UBound(TabTemp) Step 4 If Application.CountIf(.Columns(1), TabTemp(L2)) = 0 Then .Cells(Lign, 1).Value = TabTemp(L2) Lign = Lign + 1 End If Next L2 End With If Cells(L + 1, 1) <> "" Then btnGo_Click Else MsgBox ("Traitement terminé !") End If End Sub Au cas ou voici un lien pour récupérer le fichier excel.
Merci d'avance. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 10-12-2012 15h01
Petit Up pour ma demande. Merci d'avance. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 02-12-2012 15h03
Petit Up pour ma demande.
Merci d'avance. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 01-12-2012 01h03
Bonsoir,
Réouverture de ce sujet pour un nouveau problème. J'ai essayé d'utiliser le fichier que vous m'aviez fait sur une nouvelle page pour y extraire les données d'un tableau. Le problème c'est que je n'arrive à extraire que la ligne de titre de ce tableau... A priori c'est un problème de navigateur car dans le code source de firefox le contenu du tableau n'apparait pas. Dans chrome il y est. Dans le navigateur intégré à excel il ne doit pas y avoir le contenu non plus. De ce fait il ne doit pas être possible d'extraire les données. Voici le lien de la page avec le tableau: http://fr.league.phoenixdart.com/?mod ... gueid=9&divisionid=16 Il s'agit du grand tableau de 18 colonnes, titré "tous les joueurs" S'il y a une solution pour extraire les données de ce tableau je vous en serais très reconnaissant. Merci d'avance. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 08-09-2011 09h57
Bonjour à tous,
Un petit up en cette semaine de rentrée. ;) |
|
|
Re: formule de recherche !! | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 01-09-2011 20h46
Bonsoir,
Avec crtl + F, tu rentres la valeur recherchée et tu cliques sur "rechercher tout" En dessous tu devrais avoir la liste des cellules ou se trouve la valeur. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 01-09-2011 13h56
Bonjour à tous,
Un petit up au retour des congés. Merci d'avance. |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 07-08-2011 03h34
Bonjour à tous,
Juste une petite question concernant le code ci-dessus. J'ai identifié la partie du code qui déclenche l'extraction ou on le souhaite: For L2 = 85 To UBound(TabTemp) Ou il suffit de modifier la valeur "85" pour commencer à la ligne souhaitée. En revanche pour arrêter l'extraction à la ligne 90 par exemple, comment procéder? J'ai essayer LBound mais je n'ai pas réussi... Merci d'avance pour votre aide. |
|
|
Re: Problème avec une macro qui ne fait pas la différence entre les homonymes. | ||
---|---|---|
Inscription: 02/10/2008
Messages:
56
Système d'exploitation: PC Version Excel utilisée: 365 |
Posté le : 06-06-2011 19h53
Ayant remarqué que les cellules que je voulais modifier commençaient toutes par "Equipe : " j'ai utilisé les filtres automatiques pour trier les cellules.
J'ai ensuite fait la modif que je souahité, c'est-à-dire rajouter a côté de chaque nom le numéro d'opé et la lettre du groupe (gr). Ainsi il ne peut plus y avoir d'homonymes. C'était fastidieux en manipulation mais c'est fait!!! |
|
|