[WD-2007] Recherche de nombres précédés du même mot [Résolu]

[francois1955]

Bonjour,

Je cherche à récupérer les nombres de 7 chiffres situés après "dataid=" dans un code source d'une page internet.
J'aimerais les placer ensuite dans une feuille Excel.

Voici un extrait du document en exemple (avec, sauf erreur de ma part, 6 nombres à récupérer) :

<tr><td>12/04/2011 11:52</td><td></td><td>[ <a href=fiche.php?dataid=5255996 >Modif.</a> ]</td><td>[ <a href=del.php?dataid=5257992 >Suppr.</a> ]</td><td>Il a déclaré sa flamme…… aux Français</td><td></td><td><form method=post action=modifcategorie.php><input type=hidden name=dataid value=6257996><select name=sujet><option value=>--<option value=54734>NARCONEWS-Douane-Justice-Police<option value=37434>COMMUNIQUE<option value=54861>Volés en souriant<option value=54862>Silences radios<option value=54863>Elites et Bobos<option value=54864>Tartuffes<option value=54865>Le camp des saints<option value=55796>Revus par A.I<option value=73202 selected>Les Analyses <option value=73204>À l'étranger<option value=73286>Hey said the clown<option value=73589>J'y gagne quoi?</select> <input class=forForms type=submit value=go></form></td></tr><tr><td>08/04/2011 12:13</td><td></td><td>[ <a href=fiche.php?dataid=5253394 >Modif.</a> ]</td><td>[ <a href=del.php?dataid=5258894 >Suppr.</a> ]</td><td>Défendre le peuple libyen ? Mais quel peuple libyen ?</td><td></td><td><form method=post action=modifcategorie.php><input type=hidden name=dataid value=5253574><select name=sujet><option value=>--<option value=54734>NARCONEWS-Douane-Justice-Police<option value=37434>COMMUNIQUE<option value=54861>Volés en souriant<option value=54862>Silences radios<option value=54863>Elites et Bobos<option value=54864 selected>Tartuffes<option value=54865>Le camp des saints<option value=55796>Revus par A.I<option value=73202>Les Analyses de KEG<option value=73204>À l'étranger<option value=73286>Hey said the clown<option value=73589>J'y gagne quoi?</select> <input class=forForms type=submit value=go></form></td></tr><tr><td>08/04/2011 12:09</td><td></td><td>[ <a href=fiche.php?dataid=5253591 >Modif.</a> ]</td><td>[ <a href=del.php?dataid=5252391 >Suppr.</a> ]</td><td>

Merci de toute aide

[Heureux-oli]

Salut,

Peut-être une base de départ ?
http://sepia.developpez.com/office/w...cherremplacer/

[francois1955]

Bonsoir,

Merci pour ce lien. Je pense qu'il concerne la recherche "directe" dans Word.
Avec "Rechercher", je peux en effet trouver un à un mes repères (dataid=) et récupérer les nombres qui suivent "manuellement".

J'aurais voulu automatiser cette recherche en VBA car j'ai de nombreuses informations à récupérer.
C'est mon premier exercice en VBA Word et la syntaxe va me poser évidemment de sérieuses difficultés.

[francois1955]

Je viens de faire un mix de 2 bouts de codes de ce forum.

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
26
27
28
29
Dim excl As New Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Dim i, k, pos1, pos2 As Integer
Dim vrange As Range
Dim vrangebut As Range
k = 1
    Set classeur = excl.WorkBooks.Add
    Set feuille = classeur.Worksheets.Add
 
With ActiveDocument
For i = 0 To .Characters.Count - 1
If i < .Characters.Count Then pos1 = i
If pos1 + 7 <= .Characters.Count Then
pos2 = pos1 + 7
Else
pos2 = pos1
End If
Set vrange = ActiveDocument.Range(pos1, pos2)
 
If vrange.Text = "dataid=" Then
Set vrangebut = ActiveDocument.Range(pos1 + 7, pos2 + 7)
   excl.Visible = True
    feuille.Cells(k, 1) = i
   feuille.Cells(k, 2) = vrangebut
    k = k + 1
End If
Next i
End With