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-05-2010 09h18
Merci pour ces précisions pour le navigateur d'excel.
Pour les maj en y reflechissant c'est vrai que j'en ai eu (windows) il y a quelques jours! A bientôt ;) |
|
|
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: 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 : 08-09-2011 09h57
Bonjour à tous,
Un petit up en cette semaine de rentrée. ;) |
|
|
Re: Extraction de données sur pages web | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 08-09-2011 15h02
Bonjour Icedarts, le Forum,
A vrai dire, je pense qu'on ne sait pas trop ce que tu veux faire exactement... A tout hasard, tu peux essayer de remplacer ta ligne : For L2 = 85 To UBound(TabTemp) For L2 = 85 To 90 For L2 = 85 To Application.Min(90, UBound(TabTemp)) Tout dépend du résultat escompté... Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
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 : 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 : 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 : 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. |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes