Merci !!! C'est super !!!
Je vais m'y mettre dès demain.
A bientôt
Jean-Louis
Quoting Francois Gatto <[EMAIL PROTECTED]>:
> Bonjour,
>
> Une petite idée sous OpenOffice.org
>
> Exemple :
>
> 1°) ouvrir la page bookmark.html dans le navigateur,
> 2°) copier l'ensemble (Ctrl A + Ctrl C)
> 3°) ouvrir un classeur OOo
> 4°) coller dans la 1ère feuille les données (Ctrl V)
> 5°) exécuter la macro ci-dessous
>
> NB :
>
> - les données sont présentes en colonne 1 ("A")
> - les url textuelles sont inscrites en colonne 2 ("B")
>
> Macro :
>
> sub Extract_Link_URL
>
> dim oSheet as object
> dim oCell as object
> dim oCellCursor as object
> dim sLink as string
> dim nRow as long
> dim i as long
> dim iLink as integer
>
> oSheet = thisComponent.getSheets.getByIndex( 0 )
>
> 'recherche dernière ligne utilisée
> oCellCursor = oSheet.createCursor
> oCellCursor.GotoEndOfUsedArea( False )
> nRow = oCellCursor.getRangeAddress().endRow + 1 'base 0
> 'msgbox "dernière ligne = " & nRow
>
> 'boucle traitement
> for i = 1 to nRow
>
> oCell = oSheet.getCellRangeByName( "A" & i )
>
> 'récupère le nombre de liens
> iLink = oCell.textFields.getCount
>
> 'si nombre de liens non nul alors récupération de l'URL
> if iLink > 0 then
> sLink = oCell.textFields.getByIndex ( 0 ).URL
> oSheet.getCellRangeByName( "B" & i ).String = sLink
> end if
>
> next i
>
> end sub
>
> Nils Ratusznik a écrit :
> > Le Lun 10 décembre 2007 15:01, [EMAIL PROTECTED] a écrit :
> >> Bonjour !
> >> Je cherche à récupérer les colonnes Nom et Adresse du marque-pages.
> >> Or la fonction export ne délivre sous forme de fichier html que le nom et
> >> la
> >> description. C'est beaucoup trop bavard, et il manque l'adresse.
> >> L'un d'entre vous sait-il comment faire ?
> >> Merci !
> >> Jean-Louis
> >>
> >
> > Hello Jean-Louis,
> >
> > je viens de faire un export de mes marque-pages Firefox, le fichier html
> > généré me donne le nom et la description, mais aussi l'url qui est dans le
> > nom : c'est en fait un lien hypertexte.
> Voui !
> >
> > Mes 2 cents,
> itou
> >
> Francois Gatto
>
> Diffusez cette liste aupres de vos relations :)
> Linux Azur : http://linux-azur.org
> Se desabonner : http://linux-azur.org/liste.php3
> *** Pas de message SMS, HTML ni de PJ SVP ***
>
Diffusez cette liste aupres de vos relations :)
Linux Azur : http://linux-azur.org
Se desabonner : http://linux-azur.org/liste.php3
*** Pas de message SMS, HTML ni de PJ SVP ***
