Bonjour à tous,

Il y a une quinzaine d'années j'ai fait une demande un peu similaire.
J'ai retrouver les discussions et les anciens classeurs mais il semble que certaines valeurs dans les codes ne soient plus correct, j'ai notamment une erreur avec webbrowser.

Voila ce que je souhaite faire.
Dans le classeur joint vous verrez en page 1 une liste de lien.
Liste réduite a 5 pour les tests mais en finalité il devrait y en avoir des dizaines
Le code doit cliquer sur chaque lien pour ouvrir une page web
Sur cette page il n'y a qu'un tableau
Je souhaite que les données de chaque tableau soit accumuler en page 2 du classeur.

Merci d'avance pour votre aide.

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.

Petit Up pour ma demande.

Merci d'avance.

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.

Bonjour à tous,

Un petit up en cette semaine de rentrée.

;)

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.

Bonjour à tous,

Un petit up au retour des congés.



Merci d'avance.

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.

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!!!