Re: Extraction de données sur pages web
#11
Régulier XLPages

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 ;)
Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#12
Régulier XLPages

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.

Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#13
Régulier XLPages

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.
Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#14
Régulier XLPages

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.

;)
Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#15
Webmestre

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)
simplement par :
For L2 = 85 To 90
ou bien éventuellement par :
For L2 = 85 To Application.Min(90, UBound(TabTemp))

Tout dépend du résultat escompté...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#16
Régulier XLPages

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.


Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#17
Régulier XLPages

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.
Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#18
Régulier XLPages

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.

Hors Ligne
Rapport   Haut 

Re: Extraction de données sur pages web
#19
Régulier XLPages

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.

Image redimensionnée

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.

Hors Ligne
Rapport   Haut 


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.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes