[Résolu] Insertion de données externes

[baibounet29]

Bonjour,
en cherchant un peu de moi même comment créer une macro pour les liens externe je suis tombé sur :
rem dispatcher.executeDispatch(document, ".uno:InsertExternalDataSource", "", 0, Array())
pour trouver ca j'ai lancer l'enregistrement d'une macro et j'ai inserer manuellement les données externes.
J'aimerais savoir si on peux modifier cette ligne afin d'y inserer une racine web suivie d'un nom compris dans une cellule + les données souhaitées (html_6).
Pour mieux comprendre, je dispose d'une base de donnée de noms, chaqu'un de ses nom correspond a un profil sur internet. pour acceder au profil il faut une 'racine' commune + le nom qui se trouve dans une cellule (ex : http://www.siteinternet.com/profil= pour la racine et infocell pour le nom contenu dans la cellule B8 par ex). Mon but serait d'avoir une macro qui rechercherait l'info html_6 dans la page http://www.siteinternet.com/profil=infocell automatiquement et qui l'ecrirait sur ma feuille.
Je recherche une simple modif de ligne du genre
rem dispatcher.executeDispatch(document, ".uno:InsertExternalDataSource", "www.siteinternet.com/profil="&B8, html_6, Array(E8)) pour l'ecrire en E8 par ex !
je sais que cette modif ne marche pas mais c'est un exemple ! ^^
ou meme une plus grosse modif où il faudrait ajouter des lignes au programme !

Merci

Le titre de votre question n'est pas assez explicite ou ne reflète pas le problème que vous décrivez :
<[Calc]macro pour les données externes>
Des termes comme "macro" ou "openoffice" sont bien sûr implicites et n'ont pas besoin d'être mentionnés.

Merci de faire un effort sur le titre de votre question la prochaine fois. N'oubliez pas qu'un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement.

[spYre]

Bonjour baibounet29,

Si j'ai bien compris, voici un exemple qui insère un lien sur base d'une info en cellule A1 de la feuille Feuille2.
Le support de l'exemple est l'excellent site de christian : http://christianwtd.free.fr

Code : Tout sélectionner

sub lienDonneesExternes
   'info < Feuille2, cellule A1 (l'infocell dans ton exemple)
   i = thiscomponent.sheets(1).getCellbyPosition(0,0).string
   
   'http://www.siteinternet.com/profil=' dans ton exemple
   sUrl = "http://christianwtd.free.fr/index.php?rubrique=DebFonctions" & i

   'la première cellule de la plage de destination, ici Feuille1, A4
   cell = thiscomponent.sheets(0).getCellbyPosition(0,3).cellAddress
   
   'le tableau de données
   tab = "HTML_2"

   'insertion de la plage
   al = thiscomponent.arealinks
   al.insertAtPosition( Cell , sUrl , tab , "calc_HTML_WebQuery" , "" )
end sub 

Bon courage pour la suite.

Cordialement.