Ok elle est presque identique a la mienne a la seule différence que je n'ai pas le Nombre de partants
mais c'est bon je reviens
Version imprimable
Ok elle est presque identique a la mienne a la seule différence que je n'ai pas le Nombre de partants
mais c'est bon je reviens
si il y est
Citation:
16 partants à CLAIREFONTAINE Lundi le 27 - 07 - 2015,
chez moi non!! je ne l'ai pas mais c'est pas grave
Ah bah ca change pour une fis, avant c moi qui avait pas comme toi
non!! ca change rien je ne l'ai jamais eu!!!
je le trouvais avec le nombre de cellules pleine en inspectant la valeur numerique du cheval dans le faux doc
mais pour toi je vais le prendre en compte avec une condition si il y est comme ca ca marchera sans erreur pour toi et pour moi
sauf que moi je ne l'aurais jamais par le textedebut c'est tout
bon j'y retourne
voila voila
59
renvoie la capture
chez moiCode:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104 Sub testesimple59() Dim z As Long, pluss As Long, dicoseb, dicopat, mesTRREF, listPRnst, MESTH, docTemp listPRnst = Array("Bilto :", "Agence TIP :", "Top Entraineurs : ", "Stato Turf : ", "Paris Turf : ") Set dicoseb = CreateObject("Scripting.Dictionary") Set dicopat = CreateObject("Scripting.Dictionary") Set docTemp = CreateObject("htmlfile") URL = "http://www.pronostics-turf.info/fg-pronostics-presse.php" Set IE = CreateObject("internetexplorer.application") With IE: .navigate URL 'IE.Visible = True: Do: DoEvents: Loop While .readystate <> 4 Or .busy codehtml = .document.body.innerhtml 'on crée une table avec les source choisie Set mesTR = .document.getelementsbytagname("tr") For i = 0 To mesTR.Length - 1 For p = 0 To UBound(listPRnst) If InStr(mesTR(i).innertext, listPRnst(p)) > 0 Then codetable = codetable & mesTR(i).outerhtml Next Next codetable = "<table ID=tableref>" & codetable & "</table>" 'on créé une table avec la synthese ligneplace = "<TR bgcolor=""#BDBDBD"" id=Places><TH>Places</TH>" lignecheval = "<TR bgcolor=""#BDBDBD"" id=cheval><TH>Cheval</TH>" For i = 1 To 17 ligneplace = ligneplace & "<TH>" & i & "</TH>" lignecheval = lignecheval & "<TH>" & i & "</TH>" Next ligneplace = ligneplace & "</TR>" lignecheval = lignecheval & "</TR>" For i = 0 To mesTR.Length - 1 If InStr(mesTR(i).innertext, "Synthèse") > 0 Then For Each elem In mesTR(i).Children: elem.innerhtml = elem.innertext: Next mesTR(i).ID = "synthW" codesynth = ligneplace & mesTR(i).outerhtml & "<TR></TR>" & lignecheval End If Next 'on prepare la lignes des syntheses pat et seb suitesynth = suitesynth & "<tr id=fois><th> X fois cité</th>" & Application.Rept("<th>0</th>", 17) & vbCrLf suitesynth = suitesynth & "<tr id=synthS><th> synthese sebphyto</th>" & Application.Rept("<th></th>", 17) & vbCrLf suitesynth = suitesynth & "<tr id=synthP><th> synthese patrick</th>" & Application.Rept("<th></th>", 17) & vbCrLf codesynth = "<table>" & codesynth & suitesynth & "</table>" 'on supprime le script 3 et on récupère le debut lscript = Split(codehtml, "<script") codehtml = Replace(codehtml, Split(lscript(3), "</script>")(0) & "</script>", "") docTemp.body.innerhtml = codehtml DEBUT = Split(Split(docTemp.body.innerhtml, "Résultat")(1), "<TABLE")(0) docTemp.body.innerhtml = DEBUT textedebut = docTemp.body.innertext Set docTemp = Nothing .Quit End With ' date de la precedente course oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0) daystring = Split(oldate, " ")(0) oldate = Format(Split(oldate, daystring)(1), "dd/mm/yyyy") newdate = Format(Split(Split(textedebut, " le ")(1), ",")(0), "dd/mm/yyyy") oldarrivée = Replace(Split(Split(textedebut, newdate)(0), ":")(1), " ", "") prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) HiPPo = Split(Split(textedebut, "à ")(1), " ")(0) RC = "R" & Replace(Split(Split(textedebut, "Réunion ")(1), " Départ")(0), " Course ", "C") DsP = Trim(Split(Split(textedebut, ") ")(1), vbCrLf)(0)) If InStr(textedebut, "partants") > 0 Then nbpartants = Right(Split(textedebut, " partants")(0), 2) codedebut = codedebut & "<a>" & " date de la course precedente : " & oldate & "</a><br>" codedebut = codedebut & "<a>" & " arrivée de la course precedente : " & oldarrivée & "</a><br>" codedebut = codedebut & "<a>" & " date de la nouvelle course : " & newdate & "</a><br>" codedebut = codedebut & "<a>" & " Hippodrome de la nouvelle course : " & HiPPo & "</a><br>" codedebut = codedebut & "<a>" & " prix de la nouvelle course : " & prix & "</a><br>" codedebut = codedebut & "<a>" & " Réunion et course de la nouvelle course : " & RC & "</a><br>" codedebut = codedebut & "<a>" & " discipline de la nouvelle course : " & DsP & "</a><br>" codedebut = codedebut & "<a>" & " nombre de partant de la nouvelle course : " & nbpartant & "</a><br>" With CreateObject("htmlfile") .body.innerhtml = codedebut & codetable & "<br>" & codesynth '************************************************************************************ 'nombre de fois cité dans les sources choisies Set mesthref = .getelementbyID("tableref").getelementsbytagname("TH") Set fois = .getelementbyID("fois") For i = 1 To 17 For a = 0 To mesthref.Length - 1 If Val(mesthref(a).innertext) = i Then fois.Children(i).innertext = Val(fois.Children(i).innertext) + 1 Next Next '*************************************************************************** If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then Application.ScreenUpdating = False With Sheets(1) .Activate .Cells.Clear .Columns("A:A").ColumnWidth = 15 .Columns("B:R").ColumnWidth = 6 Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Select .Paste End With .parentWindow.clipboardData.clearData "Text" End If End With End Sub
Pièce jointe 183997
bon c'est trop mal
le fait que je n'ai pas les partants te cause un petit soucis mais je vais régler ca
je vais retravailler sur ta ligne et voir si je ne peut pas faire pour les deux
parcontre tu devrais l'avoir sur le ligne de partants et tu ne l'a pas
je vais examiner ca de pres
sinon ca commence a donner un beau résultat
Je pense que le souci vient de là:
Il manque nbpartant dans :Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 ' date de la precedente course oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0) daystring = Split(oldate, " ")(0) oldate = Format(Split(oldate, daystring)(1), "dd/mm/yyyy") newdate = Format(Split(Split(textedebut, " le ")(1), ",")(0), "dd/mm/yyyy") oldarrivée = Replace(Split(Split(textedebut, newdate)(0), ":")(1), " ", "") prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) HiPPo = Split(Split(textedebut, "à ")(1), " ")(0) RC = "R" & Replace(Split(Split(textedebut, "Réunion ")(1), " Départ")(0), " Course ", "C") DsP = Trim(Split(Split(textedebut, ") ")(1), vbCrLf)(0)) If InStr(textedebut, "partants") > 0 Then nbpartants = Right(Split(textedebut, " partants")(0), 2) codedebut = codedebut & "<a>" & " date de la course precedente : " & oldate & "</a><br>" codedebut = codedebut & "<a>" & " arrivée de la course precedente : " & oldarrivée & "</a><br>" codedebut = codedebut & "<a>" & " date de la nouvelle course : " & newdate & "</a><br>" codedebut = codedebut & "<a>" & " Hippodrome de la nouvelle course : " & HiPPo & "</a><br>" codedebut = codedebut & "<a>" & " prix de la nouvelle course : " & prix & "</a><br>" codedebut = codedebut & "<a>" & " Réunion et course de la nouvelle course : " & RC & "</a><br>" codedebut = codedebut & "<a>" & " discipline de la nouvelle course : " & DsP & "</a><br>" codedebut = codedebut & "<a>" & " nombre de partant de la nouvelle course : " & nbpartant & "</a><br>"
je l'ai sur cette ligneCode:
1
2
3
4
5
6
7
8
9
10 ' date de la precedente course oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0) daystring = Split(oldate, " ")(0) oldate = Format(Split(oldate, daystring)(1), "dd/mm/yyyy") newdate = Format(Split(Split(textedebut, " le ")(1), ",")(0), "dd/mm/yyyy") oldarrivée = Replace(Split(Split(textedebut, newdate)(0), ":")(1), " ", "") prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) HiPPo = Split(Split(textedebut, "à ")(1), " ")(0) RC = "R" & Replace(Split(Split(textedebut, "Réunion ")(1), " Départ")(0), " Course ", "C") DsP = Trim(Split(Split(textedebut, ") ")(1), vbCrLf)(0))
Citation:
prix de la nouvelle course : Prix DU SILENCE (PRIX MISS DAN) - 16 partants
ou lah t'a capoté toi
il y est mais il est avec condition (ca c'est pour moi)car moi je ne l'aurais jamais dans textedebut
Code:If InStr(textedebut, "partants") > 0 Then nbpartants = Right(Split(textedebut, " partants")(0), 2)
Exact sorry :oops:
voila 59 bis
captureCode:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104 Sub testesimple59() Dim z As Long, pluss As Long, dicoseb, dicopat, mesTRREF, listPRnst, MESTH, docTemp listPRnst = Array("Bilto :", "Agence TIP :", "Top Entraineurs : ", "Stato Turf : ", "Paris Turf : ") Set dicoseb = CreateObject("Scripting.Dictionary") Set dicopat = CreateObject("Scripting.Dictionary") Set docTemp = CreateObject("htmlfile") URL = "http://www.pronostics-turf.info/fg-pronostics-presse.php" Set IE = CreateObject("internetexplorer.application") With IE: .navigate URL 'IE.Visible = True: Do: DoEvents: Loop While .readystate <> 4 Or .busy codehtml = .document.body.innerhtml 'on crée une table avec les source choisie Set mesTR = .document.getelementsbytagname("tr") For i = 0 To mesTR.Length - 1 For p = 0 To UBound(listPRnst) If InStr(mesTR(i).innertext, listPRnst(p)) > 0 Then codetable = codetable & mesTR(i).outerhtml Next Next codetable = "<table ID=tableref>" & codetable & "</table>" 'on créé une table avec la synthese ligneplace = "<TR bgcolor=""#BDBDBD"" id=Places><TH>Places</TH>" lignecheval = "<TR bgcolor=""#BDBDBD"" id=cheval><TH>Cheval</TH>" For i = 1 To 17 ligneplace = ligneplace & "<TH>" & i & "</TH>" lignecheval = lignecheval & "<TH>" & i & "</TH>" Next ligneplace = ligneplace & "</TR>" lignecheval = lignecheval & "</TR>" For i = 0 To mesTR.Length - 1 If InStr(mesTR(i).innertext, "Synthèse") > 0 Then For Each elem In mesTR(i).Children: elem.innerhtml = elem.innertext: Next mesTR(i).ID = "synthW" codesynth = ligneplace & mesTR(i).outerhtml & "<TR></TR>" & lignecheval End If Next 'on prepare la lignes des syntheses pat et seb suitesynth = suitesynth & "<tr id=fois><th> X fois cité</th>" & Application.Rept("<th>0</th>", 17) & vbCrLf suitesynth = suitesynth & "<tr id=synthS><th> synthese sebphyto</th>" & Application.Rept("<th></th>", 17) & vbCrLf suitesynth = suitesynth & "<tr id=synthP><th> synthese patrick</th>" & Application.Rept("<th></th>", 17) & vbCrLf codesynth = "<table>" & codesynth & suitesynth & "</table>" 'on supprime le script 3 et on récupère le debut lscript = Split(codehtml, "<script") codehtml = Replace(codehtml, Split(lscript(3), "</script>")(0) & "</script>", "") docTemp.body.innerhtml = codehtml DEBUT = Split(Split(docTemp.body.innerhtml, "Résultat")(1), "<TABLE")(0) docTemp.body.innerhtml = DEBUT textedebut = docTemp.body.innertext Set docTemp = Nothing .Quit End With ' date de la precedente course oldate = Split(Split(Replace(textedebut, "hui", "hier"), "hier ")(1), ":")(0) daystring = Split(oldate, " ")(0) oldate = Format(Split(oldate, daystring)(1), "dd/mm/yyyy") newdate = Format(Split(Split(textedebut, " le ")(1), ",")(0), "dd/mm/yyyy") oldarrivée = Replace(Split(Split(textedebut, newdate)(0), ":")(1), " ", "") prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) If InStr(prix, "partants") > 0 Then prix = Split(prix, "-")(0) nbpartant = Split(Split(prix, "- ")(1), " ")(0) End If HiPPo = Split(Split(textedebut, "à ")(1), " ")(0) RC = "R" & Replace(Split(Split(textedebut, "Réunion ")(1), " Départ")(0), " Course ", "C") DsP = Trim(Split(Split(textedebut, ") ")(1), vbCrLf)(0)) codedebut = codedebut & "<a>" & " date de la course precedente : " & oldate & "</a><br>" codedebut = codedebut & "<a>" & " arrivée de la course precedente : " & oldarrivée & "</a><br>" codedebut = codedebut & "<a>" & " date de la nouvelle course : " & newdate & "</a><br>" codedebut = codedebut & "<a>" & " Hippodrome de la nouvelle course : " & HiPPo & "</a><br>" codedebut = codedebut & "<a>" & " prix de la nouvelle course : " & prix & "</a><br>" codedebut = codedebut & "<a>" & " Réunion et course de la nouvelle course : " & RC & "</a><br>" codedebut = codedebut & "<a>" & " discipline de la nouvelle course : " & DsP & "</a><br>" codedebut = codedebut & "<a>" & " nombre de partant de la nouvelle course : " & nbpartant & "</a><br>" With CreateObject("htmlfile") .body.innerhtml = codedebut & codetable & "<br>" & codesynth '************************************************************************************ 'nombre de fois cité dans les sources choisies Set mesthref = .getelementbyID("tableref").getelementsbytagname("TH") Set fois = .getelementbyID("fois") For i = 1 To 17 For a = 0 To mesthref.Length - 1 If Val(mesthref(a).innertext) = i Then fois.Children(i).innertext = Val(fois.Children(i).innertext) + 1 Next Next '*************************************************************************** If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then Application.ScreenUpdating = False With Sheets(1) .Activate .Cells.Clear .Columns("A:A").ColumnWidth = 15 .Columns("B:R").ColumnWidth = 6 Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Select .Paste End With .parentWindow.clipboardData.clearData "Text" End If End With End Sub
J'ai juste fais une chose car sinon j'avais une erreur "indice n'appartient pas etc...." ici
sur nb partant, en faiteCode:
1
2
3
4
5
6 oldarrivée = Replace(Split(Split(textedebut, newdate)(0), ":")(1), " ", "") prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) If InStr(prix, "partants") > 0 Then prix = Split(prix, "-")(0) nbpartant = Split(Split(prix, "- ")(1), " ")(0) End If
quand je mets espion sur prix ici :j'ai çaCode:prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
---> okCitation:
Prix DU SILENCE (PRIX MISS DAN) - 16 partants
et iciil prend la valeur du prix comme ceciCode:nbpartant = Split(Split(prix, "- ")(1), " ")(0)
d'où l'erreur car pas de " - " (tiret)Citation:
Prix DU SILENCE (PRIX MISS DAN)
donc j'ai changé en mettantle petit 1Code:prix1 = Split(prix, "-")(0)
et la dedansVoici la captureCode:codedebut = codedebut & "<a>" & " prix de la nouvelle course : " & prix1 & "</a><br>"
Pièce jointe 184005
arrete de changer qu'a ta sauce chez moi ca ne marchera pas !!!
fait plutot ceci:
change la condition "if" pour celle ci
et met pluto ca :
Code:
1
2
3
4
5 prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) If InStr(prix, "partants") > 0 Then prix = Split(prix, "-")(0) nbpartant = Split(Split(textedebut, " partants")(0), prix)(1) End If
Non ca fonctionne pas erreur "indice....."
J'ai juste fait un test afin de comprendre comme cela ce comporte
en le découpant et si je veux obtenir le bon résultat j'ai fais çaCode:nbpartant = Split(Split(textedebut, " partants")(0), prix)(1)
Et là j'ai le bon résultatCode:
1
2
3
4 'nbpartant = Split(Split(textedebut, " partants")(0), prix)(1) nb = Split(textedebut, " partants") nb2 = Split(nb(0), " - ") nbpart = nb2(5)
CE N'EST JUSTE QU'UN TEST.......:oops:
voila ta ligne tel que tu la posté
donc !Citation:
QUINTE Arrivée du QUINTE PMU d'hier Dimanche 26 Juillet 2015: 1 - 7 - 10 - 2 - 4 27/07/2015 [Il est 13:35:09] - Course 4590 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix DU SILENCE (PRIX MISS DAN) - 16 partants à CLAIREFONTAINE Lundi le 27 - 07 - 2015, Réunion 1 Course 2 Départ: 13h50 (allocation: 60000€) Plat PRONOSTICS DE LA PRESSE (Revue de Presse) de pronostics-turf.info
devrait te donner cela :Code:prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
comme chez moi il n'y a pas " - 16 partants" je met une condition pour toiCitation:
Prix DU SILENCE (PRIX MISS DAN) - 16 partants
si c'est oui on faitCode:If InStr(prix, "partants") > 0 Then
Code:
1
2 prix = Split(prix, "-")(0)
ce qui nous donne
et ensuite je fait cette fois ci avec tout le textedebut avec 2 splitCitation:
Prix DU SILENCE (PRIX MISS DAN)
le 1 er split donneCode:nbpartant = Split(Split(textedebut, " partants")(0), prix)(1)
le 2 eme split coupe ce que l'on a obtenu par la variable prixCitation:
QUINTE Arrivée du QUINTE PMU d'hier Dimanche 26 Juillet 2015: 1 - 7 - 10 - 2 - 4 27/07/2015 [Il est 13:35:09] - Course 4590 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix DU SILENCE (PRIX MISS DAN) - 16
donc si j'enleve ce qui'il y a dans prix jobtiens cela :
Citation:
- 16
Donc chez moi:
Citation:
QUINTE Arrivée du QUINTE PMU d'hier Dimanche 26 Juillet 2015: 1 - 7 - 10 - 2 - 4 27/07/2015 [Il est 13:35:09] - Course 4590 PRONOSTICS PRESSE HIPPIQUE POUR LE QUINTE PMU: Prix DU SILENCE (PRIX MISS DAN) - 16 partants à CLAIREFONTAINE Lundi le 27 - 07 - 2015, Réunion 1 Course 2 Départ: 13h50 (allocation: 60000€) Plat PRONOSTICS DE LA PRESSE (Revue de Presse) de pronostics-turf.info
me donneCode:prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
C okCitation:
Prix DU SILENCE (PRIX MISS DAN) - 16 partants
puis
me donneCode:prix = Split(prix, "-")(0)
C okCitation:
Prix DU SILENCE (PRIX MISS DAN)
non car il prend le prix de çaCitation:
le 2 eme split coupe ce que l'on a obtenu par la variable prix
Dans le deuxième split et non celui-làCitation:
me donneCode:prix = Split(prix, "-")(0)
Citation:
Prix DU SILENCE (PRIX MISS DAN)
Attention la page à changer pour le course de demain et je n'ai plus le même résultat!!!!!!Code:prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
Pièce jointe 184014
attention la page viens de mettre a jour pour la course de demain et ca change la donne j'ai du texte en trop dans l'arrivée
on s'est croisé ;)
Oui monsieur
regarde post #359
re
bon ca y est tu capote maintenant je sais qu'au bout de 2 3 heures c'est mort il faut que t'aille faire la sieste
j'ai pas dis ca
j'ai dis ca !!Code:prix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
pCode:nbpartant = "Prix " & Split(Split(textedebut, Prix)(1), "à")(0)
rix entre guillemet veut dire "prix"
sans les guillemets c'est la variable prix qui veut dire "prix de la blablablabla" que l'on a récupéré avec la variable prix
si tu veux je change le nom si ca te fait confondre
re bon
j'ai bloqué la detection de la page web et je me suis servi de ta ligne en exemple
alors je recomence change la condition if pour celle ci:
j'ai changer le nom de prix en nomprix ca sera peut etre plus clair pour toi :ptdr::ptdr: sinon t'a penser a prendre ton 4 heure
c'est fragile ces petites betes la :mouarf:
testé et c'est bonCode:
1
2
3
4
5 nomprix = "Prix" & Split(Split(textedebut, "Prix")(1), "à")(0) If InStr(nomprix, "partants") > 0 Then nomprix = Split(nomprix, " -")(0) nbpartant = Replace(Split(Split(textedebut, " partants")(0), nomprix)(1), "-", "") End If
la nouvelle erreur dans l'arrivée est du au fait que je coupe le texte avec la newdate si on essaie demain ca le fera pas
il faut donc que je prenne ca en compte et que je modifie
ca fait pareil
parce que dans
Le 1er monprixCode:
1
2
3
4
5
6 nomprix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0) If InStr(nomprix, "partants") > 0 Then nomprix = Split(nomprix, " -")(0) nbpartant = Replace(Split(Split(textedebut, " partants")(0), nomprix)(1), "-", "") End If
dans
renvoiCode:nomprix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
Dans la boucle ifCitation:
"Prix DU BOIS BRANDIN - 16 partants "
renvoiCode:nomprix = Split(nomprix, " -")(0)
Mais dansCitation:
"Prix DU BOIS BRANDIN"
Le nomprix est celui deCode:nbpartant = Replace(Split(Split(textedebut, " partants")(0), nomprix)(1), "-", "")
donc çaCode:nomprix = Split(nomprix, " -")(0)
Et non le 1er monprixCitation:
"Prix DU BOIS BRANDIN"
qui est
renvoiCode:nomprix = "Prix " & Split(Split(textedebut, "Prix")(1), "à")(0)
Dit moi si je me trompe!!!!!!:?Citation:
"Prix DU BOIS BRANDIN - 16 partants "