Discussion :

[nicdodo]

Bonjour,

Grace à excel j'ai récupérer les données d'un site web pour une petit appli que je fais avec excel en vba. j'ai besoin de récupérer certaines données de ce site pour totalement automatiser mon petit programme.

J'ai trouvé un tuto qui m'explique comment récupérer les données d'un site web, l'astuce étant de trouver un point commun aux infos que l'on veut sélectionner et grâce à ça faire un copier coller sous condition.

Sur le site dont j'ai besoin lorsque j'extraie les données du site vers excel je trouve un point commun entre toutes les données masi je ne sais pas comment le demander en vba

En exemple je vais utiliser une foret
Dans une foret il y'a A1 = arbres 12 / A2 fleurs 14 etc

En fait moi j'ai juste besoin du chiffre 12 et 14 sachant que 12 et 14 sont en rouges sur le site et arbres et fleurs en noirs

Comment puis je sélectionner juste le chiffre 12 et 14 en utilisant leur couleur rouge s'il vous plait?

Merci d'avance, cordialement

[antonysansh]

Bonjour nicdodo,

Je ne sais pas comment récupérer la couleur de certain caractère d'une chaine mais si toutes tes cellules sont de la forme : [un mot][un espace][un nombre]
Tu peux utiliser le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
 
Dim rg As Range
Set rg = ActiveSheet.[A1]
 
rg.Value = Right(rg.Value, (Len(rg.Value) - InStr(rg.Value, " ")))
 
End Sub

[nicdodo]

Merci pour la réponse je vous envoi le fichier joint pour que vous ayez plus de précision. En fait il faudrait que les nombre en rouges se copie coller de la feuille temp à partir de la première ligne de la feuille Accueil, je n'ai pas forcement besoin que les nombres de RESULTAT par exemple soit en colonne A,B et C ils peuvent juste etre à la suite, je trierai les données par la suite. J'ai juste besoin d'une méthode qui me supprime tous à part les nombres en rouge.

Mon code qui ne fonctionne pas et celui ci: (je vous le copie pour que vous voyez à peu prés dans l'idée ce que je souhaite faire)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Macro1()
'
' Macro1 Macro
'
 
'Dim rg As Range
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.betclic.fr/monaco-montpellier-m898436", Destination:=Sheets("temp").Range("$A$1"))
        .Name = "monaco-montpellier-m898436"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
ActiveSheet("temp").Select    
Set rg = ActiveSheet.["A1:F800"]
    compteur = 0
    For i = 1 To 800
    For e= 1 To 7
 
    If rg.Value = Right(rg.Value, (Len(rg.Value) - InStr(rg.Value, " "))) Then
    Sheets("accueil").Cells(compteur, 1) = Sheets("temp").Cells(i, e)
 
Next
Next    
End Sub

Cordialement

[antonysansh]

Voilà un code qui cette fois remplace le contenu des cellules d'un range (ici [C2:C21]) par uniquement le contenu en rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub garder_texte_rouge()
    Dim rg As Range: Dim cellule As Range: Dim i As Double: Dim j As Double: Dim res As String
    Set rg = [C2:C21]
 
    For Each cellule In rg.Cells
        res = ""
        j = Len(cellule.Value)
        For i = 1 To j
            If cellule.Characters(i, 1).Font.Color = 255 Then
                res = res & cellule.Characters(i, 1).Caption
            End If
        Next i
        With cellule
            .Value = res
            .Font.Color = 255
        End With
    Next
End Sub

Le problème est que s’il n'y a pas de caractère en rouge, ta cellule devient vide.
Et j'ai choisi le code couleur 255, tu n'as peut être pas le même rouge.

Ça peut au moins te mettre sur la route.

[nicdodo]

En fait je vais faire par une autre méthode un peu plus longue je pense mais je vais déjà dégrossir mon fichier en essayant de sélectionner les cellules contenant des donnés avec des chiffres. Donc l'idée c'est de chercher dans la 1er colonne de la feuille "accueil" toutes les cellules contenant des chiffres et de copier chaque cellules contenant un chiffre à la suite à la 1er ligne vide de la 1er colonne de la feuille "test". Le problème c'est que mon code ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub test()
Dim numlignevide As Integer
 
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("accueil").Activate
 
For i = 1 To 800
If IsNumeric(Cells(i, 1)) = True Then
 
Sheets("test").Cells(numlignevide, 1).Value = Sheets("Accueil").Cells(i, 1).Value
 
End If
Next
numlignevide = numlignevide + 1
End Sub

Pour séparer les chiffres les chiffres des colonnes j'utiliserais la méthode (donnés/convertir) et je ferai une macro grâce à l'enregistreur (j'ai testé, cette partie fonctionne )

Pourriez vous juste m'aider pour que mon code fonctionne svp?

[patricktoulon]

Bonjour

peut être faudrait il savoir quelle partie de la page t'intéresse et de capter que celle ci vu que la page arrive en chanbouli avec querytables

di moi quelle partie t'intéresse de cette page et je te fait un exemple

[Pierre Fauconnier]

Salut.

Je ne peux qu'être d'accord avec Prométhée... surtout au vu d'une procédure de 284 lignes...

[nicdodo]

Héhé oui oui, les nationales sont parfois longues. Non mais je vais faire comme vous me conseillez il faut juste que j'apprenne à faire. La c'est juste que je fais mes petits test et du coup ça m'a appris plein de truc notamment, la formule link et scindé une colonne en deux avec l'outils données. J'en ai pas vraiment besoin mais ca me permet d'apprendre sur le tas sans que ça soit trop scolaire. Ça m'apprend la logique du langage info avant de rentrer en formation pour devenir concepteur développeur et pour le coup la ça sera très scolaire

E tout cas merci pour votre aide sincerement

[patricktoulon]

Bonsoir Pierre Fauconier

c'est exactement ce que je lui ai proposé mais ca lui parait trop compliqué et étant donné que les classe des éléments ne sont pas distinguable ou alors difficilement ,j'ai trouvé un moyen beaucoup plus simple

repérer les éléments qui ont le innertext correspondant au titre de chaque tableaux

et utiliser element.parentnode.parentnode qui nous donne chaque tableaux en entier

un getelementsby..... sur chaque tableaux et voila

re
je viens encore d'essayer d'y aller et c'est d'autant plus difficile car il doit y avoir une certaine heure pour les visites ;au delà des heures prévu la page est redirigée vers une autre page avec des données plus générales mais ne correspondant plus au tableau que donnait son URL hier midi
donc walouh.....
ca m'étonnerait que son system fonctionne longtemps

nicodo
A tu seulement remarqué que ta macro avec le querytables ne donnait plus la même chose sur le sheet?????????qu'hier

a mon avis aussi il va te falloir organiser autrement
les données que tu récupère devront peu être pris sur une autre page du site betclic

ou alors donne moi le lien qui t'envoie sur les mêmes données qu'hier