I'm not sure exactly how you are getting the value of C1, but you should be able to get the source of the page. To do this, press Ctrl+U. This should give you a page written in html. Look for line 128 (or where the table starts, there should be the data you need there and it starts with <table class ...
.
Copy everything from <table class ...
to </table>
which is on the same line, near to the end.
Paste this into notepad.
Click Ctrl+H and use Find what: <br />
Replace with: " " (one whitespace) and hit replace all.
Copy everything and paste in excel. You can remove the formatting after that to even out the cell dimensions.
Note that hyperlinks will stay in the data.
EDIT:
To separate the email, tel, mobile and fax will be a little longer, but not that long.
To get the email, use this formula in the next cell in E2:
=LEFT(D2, FIND(" ",D2)-1)
And drag down.
To get the numbers now, it'll be easier to get first all of them separately in column F:
=MID(D2, FIND(" ",D2)+1, LEN(D2))
Now in G, we'll get the Tel, in H we'll get the Fax and in I, we'll get the Mobile.
In G2, put and drag down:
=IFERROR(MID(F2,FIND("Tel:",F2)+4,IFERROR(FIND(":",F2,FIND("Tel:",F2)+4),LEN(F2))-FIND("Tel:",F2)-4),"")
In H2, put and drag down:
=IFERROR(MID(F2,FIND("Fax:",F2)+4,IFERROR(FIND(":",F2,FIND("Fax:",F2)+4),LEN(F2))-FIND("Fax:",F2)-4),"")
In I2, put and drag down:
=IFERROR(MID(F2,FIND("Mobile:",F2)+7,IFERROR(FIND(":",F2,FIND("Mobile:",F2)+7),LEN(F2))-FIND("Mobile:",F2)-7),"")
After that, copy everything and paste as values to remove formulas. Select columns G to I and replace all Tel
, Fax
and Mobile
by nothing through Ctrl+H.
The french functions in order mentioned above:
=GAUCHE(D2, TROUVE(" ",D2)-1)
=STXT(D2, TROUVE(" ",D2)+1, NBCAR(D2))
=SIERREUR(STXT(F2,TROUVE("Tel:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Tel:",F2)+4),NBCAR(F2))-TROUVE("Tel:",F2)-4),"")
=SIERREUR(STXT(F2,TROUVE("Fax:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Fax:",F2)+4),NBCAR(F2))-TROUVE("Fax:",F2)-4),"")
=SIERREUR(STXT(F2,TROUVE("Mobile:",F2)+7,SIERREUR(TROUVE(":",F2,TROUVE("Mobile:",F2)+7),NBCAR(F2))-TROUVE("Mobile:",F2)-7),"")