Bonjours,
J'ai bien avancé depuis hier, merci Laurent Gaudard, pour récupérer les
adresse et informations stocké sur AOL.
J'enregistre le cadre comprenant les infos sur mon PC (Fichier
AddressList.aspx.htm) je l'ouvre avec Notepad++ (qui me colorie les
balises) et j'ai bien toutes les infos voulu dedans.
Comment extraire ces infos pour en faire un tableau sous calc?
Une macro peut elle le faire?
Je mais en fin de message l'extrais de la page ( 62 sur 883 lignes et 3
exemples) suivi du post d'hier.
Tous les contacts n'ont pas le tel ou émail.
merci a vous
Etienne
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html;
charset=UTF-8"><title>Carnet d'adresses AOL</title>
<script type="text/javascript">
var VERSION="22250";
var AV_PAGE="http://d01.webmail.aol.com/22250/aol/fr-fr/Default.aspx";;
[...]//j'ais enlevé une bonne partie
[...]//La partie interessante est la:
<tr id="contact2819" class="oddRow">
<td class="iconCell"
nowrap="nowrap"><a style="background-position: 5px -14px;" href="#"
class="ckofCol" onclick="return XTable.SelectRowCB(this);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="iconCell"
nowrap="nowrap"><a title="Modifier les informations pour Toto1 DUPONT1
href="#" onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);"><img class="editCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" nowrap="nowrap"><a
title="Modifier les informations pour Toto1 DUPONT1" href="#"
onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);">toto1 dupont1</a></td>
<td class="presenceCell"
style="border-left: medium none; border-right: medium none;
background-image:
url(http://api.oscar.aol.com:80/SOA/key=sr1DFCvn2e83VRmK/presence/[EMAIL PROTECTED]);"
nowrap="nowrap"><a title="Envoyer un Message instantané à [EMAIL PROTECTED]"
style="cursor: pointer;" href="#" onclick="return XTable.OpenRowCB(this,
event, 'presence');" onmouseover="return XTable.MouseOverCB(this,
event);" onmouseout="return XTable.MouseOutCB(this.event);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" style="border-left:
medium none;" nowrap="nowrap"><a title="Envoyer un e-mail à
[EMAIL PROTECTED]" href="#" onclick="return XTable.OpenRowCB(this, event,
'email');" onmouseover="return XTable.MouseOverCB(this, event);"
onmouseout="return XTable.MouseOutCB(this.event);">[EMAIL PROTECTED]</a></td>
<td class="text"
nowrap="nowrap"><span style="white-space: nowrap;">Val : 05 05 05 05 05
(Domicile )</span></td>
<td class="trashCell"
nowrap="nowrap"><a href="#" title="Supprimer le contact" onclick="return
XTable.DeleteRowCB(this);"><img class="trshCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
</tr>
<tr id="contact1540" class="evenRow">
<td class="iconCell"
nowrap="nowrap"><a style="background-position: 5px -14px;" href="#"
class="ckofCol" onclick="return XTable.SelectRowCB(this);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="iconCell"
nowrap="nowrap"><a title="Modifier les informations pour tata1 DURAND1"
href="#" onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);"><img class="editCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" nowrap="nowrap"><a
title="Modifier les informations pour tata1 DURAND1" href="#"
onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);">tata1 durand1</a></td>
<td class="presenceCell"
style="border-left: medium none; border-right: medium none;
background-image:
url(http://api.oscar.aol.com:80/SOA/key=sr1DFCvn2e83VRmK/presence/[EMAIL PROTECTED]);"
nowrap="nowrap"><a title="Envoyer un Message instantané à
[EMAIL PROTECTED]" style="cursor: pointer;" href="#" onclick="return
XTable.OpenRowCB(this, event, 'presence');" onmouseover="return
XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" style="border-left:
medium none;" nowrap="nowrap"><a title="Envoyer un e-mail à
[EMAIL PROTECTED]" href="#" onclick="return XTable.OpenRowCB(this, event,
'email');" onmouseover="return XTable.MouseOverCB(this, event);"
onmouseout="return XTable.MouseOutCB(this.event);">[EMAIL PROTECTED]</a></td>
<td class="text"
nowrap="nowrap"><span style="white-space: nowrap;">05 05 05 05 05 05
(Domicile )</span></td>
<td class="trashCell"
nowrap="nowrap"><a href="#" title="Supprimer le contact" onclick="return
XTable.DeleteRowCB(this);"><img class="trshCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
</tr>
<tr id="contact3041" class="oddRow">
<td class="iconCell"
nowrap="nowrap"><a style="background-position: 5px -14px;" href="#"
class="ckofCol" onclick="return XTable.SelectRowCB(this);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="iconCell"
nowrap="nowrap"><a title="Modifier les informations pour titi1 DUPONT2"
href="#" onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);"><img class="editCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" nowrap="nowrap"><a
title="Modifier les informations pour titi1 DUPONT2" href="#"
onclick="return XTable.OpenRowCB(this, event, 'name');"
onmouseover="return XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);">titi1 DUPONT2</a></td>
<td class="presenceCell"
style="border-left: medium none; border-right: medium none;
background-image:
url(http://api.oscar.aol.com:80/SOA/key=sr1DFCvn2e83VRmK/presence/[EMAIL PROTECTED]);"
nowrap="nowrap"><a title="Envoyer un Message instantané à
[EMAIL PROTECTED]" style="cursor: pointer;" href="#" onclick="return
XTable.OpenRowCB(this, event, 'presence');" onmouseover="return
XTable.MouseOverCB(this, event);" onmouseout="return
XTable.MouseOutCB(this.event);"><img
src="AddressList.aspx_fichiers/space.gif"></a></td>
<td class="text" style="border-left:
medium none;" nowrap="nowrap"><a title="Envoyer un e-mail à
[EMAIL PROTECTED]" href="#" onclick="return XTable.OpenRowCB(this, event,
'email');" onmouseover="return XTable.MouseOverCB(this, event);"
onmouseout="return XTable.MouseOutCB(this.event);">[EMAIL PROTECTED]</a></td>
<td class="text"
nowrap="nowrap"><span style="white-space: nowrap;">05 05 05 05 05
(Domicile )</span></td>
<td class="trashCell"
nowrap="nowrap"><a href="#" title="Supprimer le contact" onclick="return
XTable.DeleteRowCB(this);"><img class="trshCol"
src="AddressList.aspx_fichiers/space.gif"></a></td>
</tr>
[...]//Lapartie interesante ce fini ici
</tbody>
</table>
<script>
NeedSuiteSvc();
gldf22250" id="gldf22250"></iframe><iframe class="offscreen"
name="actf22250" id="actf22250"></iframe>
</body></html>
yves dutrieux a écrit :
Bonjour,
Le 05/12/06, endive <[EMAIL PROTECTED]> a écrit :
Laurent Godard a écrit :
> Bonjour endiveaujambon
>
>> Le seul moyen que j'ai trouvé est de rédigé un message avec toutes
>> les adresses, de les copier dans un fichier .TXT puis de les importés
>> dans Calc.
renomme ton fichier.txt en fichier .csv et ouvre le en calc .
Délimiteur : ;
Yves
>
> donen nous un exemple ou deux des ligens exportees
[EMAIL PROTECTED];[EMAIL PROTECTED];[EMAIL PROTECTED];etc...
>
>> Cella ne marche pas de façons satisfaisante:
>> 1-Je n'est que les adresses mail mais les compléments (adresses
>> postal, tel, etc...) ne sont pas importé.
>> 2-Les listes de diffusions comprenant une partie de ces adresses
>> recopie les adresses mais pas le titre et ne les séparent pas.
>> 3-lors de l'importation, les adresses sont mit en tête de
>> colonnes, il serrais souhaitable de les avoir en tête de ligne avec
>> les compléments dans les colonnes suivante.
>>
>
> comment fais tu ton importation dans Calc ?
Je fais un glisser de adresse.txt dans un fichier Calc, je suis sous
windows XP.
> as tu fait une importation type CSV ?
Je n'ai pas de chois importation sous calc
>
>> Pour le point 2 je peut le noter à la mains à la saisi, mais si cella
>> peut ce faire autrement tant mieux.
>>
>> Je ne sais pas si je suis sur la bonne liste, la question étant
>> complexe peut être une solution macrobiene (?) est elle faisables.
>>
>
> celà depend de ce que tu as déjà testé
> envoie moi ton fichier si tu le desires, je regarderai
> sinon, par macro, oui beaucoup de choses sont possibles
> lire une fichier texte, le découper suivant un separateur (paut etre
> delicat), remplir un feuille calc
j'ai trouvé une solution avec un collage spécial: transposé qui me les
colles dans la colonnes A.
Mon problème est de créé le fichier de base a partir d'aol:
Je te fais suivre hors liste la web page sur laquel je me base, je peut
fair suivre a qui le demande
merci
>
> Donne nous plus de precisions
>
> Laurent
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.432 / Virus Database: 268.15.9/573 - Release Date: 05/12/2006 16:07
