Problème de Format de cellules après un QueryTables URL

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:

---

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

---

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

Code:

---

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

---

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:

---

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.

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:

---

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

---

Bonjour patricktoulon,

très intéressant comme requête,:bravo: 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 :marteau:de convertir en amont le format, mais plutôt de l'exploiter tel quel avec la bonne commande. :merci:

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

re
c'est quoi le but du left 2

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

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

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!