Discussion :

[MhoJiTo]

Bonjour à tous !

Voila je me suis lancé sur un Side Project destinée à traiter des statistiques de matchs de Football.
Mon projet avançait très bien jusqu'à la semaine dernière. Cela fait maintenant 5 jours que je suis a fond dessus et que je n'arrive pas à trouver de solution meme en retournant internet.

Je me réfère donc à vous pour voir si vous avez une astuce pour contourner mon problème.

J'effectue un QueryTables d'une page internet dans une feuille, tout se passe très bien sauf que je ne peux pas exploiter les résultats de matchs de la colonne D qui sont importé (du genre 02:01). Le format de la cellule est automatiquement transformé en Personnalisée hh:mm.
Du coup impossible de faire un left des 2 premiers caractères.

j'ai essayé de forcer le format avant importation de la page, et ca fonctionne pas.

si quelqu'un a une idée pour contourner ce problème, je suis preneur.

En vous remerciant par avance.

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
 
Public Sub Essai()
 
With ActiveSheet.QueryTables.Add(Connection:="URL;" & "http://www.betexplorer.com/soccer/colombia/liga-aguila/cortulua-dep-cali/O0tDDRl7/", Destination:=Cells(1, 1))
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebFormatting = xlWebFormattingRTF
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1,2"
    .WebPreFormattedTextToColumns = False
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = True
    .WebDisableDateRecognition = True
    .WebDisableRedirections = True
    .Refresh BackgroundQuery:=False
    .WorkbookConnection.Delete
End With
 
End Sub

[Invité]

Bonsoir,
Ok Excel convertie en time, mais indépendamment les données affichées sont bonne?

Code :

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

1
2
 
Txt=left(format(cells(1,1),"hh:mm"),2)

[MhoJiTo]

Wow c'est magique ! tu as résolu mon problème !

effectivement, ca fait exactement ce que je veux. récupérer la valeur qui etait convertie.

un grand merci !

Code :

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

1
2
3
 
MsgBox Left(Format(Cells(3, 4), "hh:mm"), 2)
MsgBox Right(Format(Cells(3, 4), "hh:mm"), 2)

je vais pouvoir dormir tranquille ce soir, et continuer mon projet. il va falloir que je révise la commande format.

[patricktoulon]

bonsoir
une toute petite requête aurait bien pu faire l'affaire aussi

en nettoyant le code source de la page de tout ce qui est superflu

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
Sub test1()
    URL = "http://www.betexplorer.com/soccer/colombia/liga-aguila/cortulua-dep-cali/O0tDDRl7/"
    Dim iedoc As Object, req As Object, e, i, truc, matable
    Set req = CreateObject("microsoft.xmlhttp")
    req.Open "post", URL, False
    req.send
    'MsgBox req.responsetext
    Set iedoc = CreateObject("htmlfile")
    With iedoc
        .write req.responsetext
        Set matable = .getelementsbytagname("table")
        For e = 0 To 1
            code = code & "<table>" & matable(e).getelementsbytagname("tbody")(1).outerhtml & "</table>" & vbCrLf
        Next
        Set truc = .getelementsbytagname("tr")
        For i = 0 To truc.Length - 1
            code = Replace(code, truc(i).Children(0).outerhtml, "")
        Next
        .body.innerhtml = code
        faire = .ParentWindow.clipboardData.SetData("text", code)
        With Sheets(1): .Cells(1, 1).Select: .Paste: .Columns("D:G").Delete Shift:=xlToLeft: End With
    End With
End Sub

[MhoJiTo]

Bonjour patricktoulon,

très intéressant comme requête, je me met ça sous le coude pour du traitement de pages web car j'ai une autre page qui me posais quelques problèmes dont j'ai pu contourner autrement mais je vais l'essayer avec ta formule.
par contre j'aurais encore été bloqué sur la récupération des résultats de matchs qui sont en format HH:MM.

Et grâce à rdurupt, j'ai compris qu'il fallait pas que je me casse la tête a essayer de convertir en amont le format, mais plutôt de l'exploiter tel quel avec la bonne commande.

[Invité]

il faut noter que si un matche durait plus de 24 heures nous serions passé au format date et là j'aurais opté pour une solution type Patrick! et même le risque existe pour un matche de 2 heure qui commence à 23 heures! en admettant que la duré soit calculé date Fin - date Début

[patricktoulon]

re
c'est quoi le but du left 2

si c'est pour justement calculer il y a datediff que tu peux adapter

[mercatog]

Je crois que là ce sont des résultats de matchs de foot. 2:0 veut dire le score est de 2 à 0
Rapporté sur excel, il la considère comme une heure hh:mm.

Bon là je devine

[Invité]

Oui je pense que tu as raison mercatog, je m'en suis rendu compte après avoir posté,mais comme ça n'avait pas d'importance!