Poser votre question
0

Comment me connecter à une adresse Internet ? [fermée]

posée 2019-09-26 02:22:29 +0100

Image Gravatar de Henri Borguet

updated 2019-09-28 18:53:33 +0100

Dans Base, j'ai une table contenant des URL (ex : https://fr.wikipedia.org/wiki/Jo%C3%A...).

Je voudrais me connecter dans mon navigateur au site référencé soit via un clic (macro ?) soit via un bouton (macro ?).

Dans libre Office Base, quel est la correspondance pour le type de zone de Microsoft Accès : "Lien hypertexte" ?

Une amorce de solution serait la bienvenue.

Merci d'avance.

C:\fakepath\music.odb

Utiliser la table "Personne Reference" ou le formulaire "Personne"

éditer requalifier signaler réouvrir fusionner supprimer

Fermé pour la raison suivante la question est résolue, une bonne réponse a été acceptée par Henri Borguet
date de clôture 2019-09-28 18:53:05.544527

2Réponses

0

répondue 2019-09-28 18:27:06 +0100

Image Gravatar de Henri Borguet

updated 2019-09-28 18:35:25 +0100

La macro aurait pu ressembler à quelque chose comme ceci :

sub Hyperlien_MouseUp(Sender as TObject, Button as TMouseButton, Shift as TshiftState, X as Integer, Y as integer)
dim sv as object
on error goto Hyperlien_MouseUp_Error
   if button = mbRight then 
     sv = createUnoService("com.sun.star.system.SystemShellExecute")
     sv.execute(sender.source.model.currentcalue, "",0)
   end if

   exit sub

   Hyperlien_MouseUp_Error:
     msgbox "Ce lien n'est pas valide" 
 end sub

mais si ça passe à la compilation, il y a une erreur au moment de l'exécution : nombre de paramètres incorrect.

On en est donc réduit à ceci :

   sub Hyperlien_MouseUp(Sender as TObject)
   dim sv as object
      on error goto Hyperlien_MouseUp_Error

      sv = createUnoService("com.sun.star.system.SystemShellExecute")
      sv.execute(sender.source.model.currentcalue, "",0)

      exit sub

      Hyperlien_MouseUp_Error:
        msgbox "Ce lien n'est pas valide" 
    end sub

Cette solution ne me satisfait pas pleinement ! Je comptais garder le clic gauche pour la sélection et utiliser le clic droit pour l'affichage du lien.

Je vais donc devoir trouver un gestionnaire de base de données qui sera plus sérieux que Libre Office Base; je suis en train de tester "Visual studio" de Microsoft

éditer signaler supprimer permalien plus
0

répondue 2019-09-26 13:01:32 +0100

Image Gravatar de thierry

updated 2019-09-26 14:25:23 +0100

Bonjour,

Pas certain de comprendre tous les éléments de votre problématique. Il me faudrait plus d’éclaircissement sur votre demande. Joignez un exemple. Je pense que votre souci est simple. pour ouvrir une URL dans writer ou dans calc (base ou pas) il faut que cette dernière soit bleue. pour cela vous collez l'url dans votre base puis vous vous placez à la fin de cette url et faites un espace. L'url passe de noir à bleu. elle devient active. pour l'ouvrir il suffit d'appuyer sur la touche ctrl et avec la souris vous cliquez sur l'url.

si ma réponse vous convient cliquez sur Ѵ et "votez" en cliquant sur la flèche ^ si vous trouvez la réponse utile. je suis votre question si vous avez besoin de précisions. Thierry C:\fakepath\ouvrir une url.ods

éditer signaler supprimer permalien plus

Commentaires

Votre solution fonctionne très bien dans Witer ou Calc, mais ne fonctionne pas dans Base (gestionnaire de BD de libre office).

J'ai fait une copie de Calc dans Base : sans résultat l'url s'affiche sous forme de texte et perd son formatage.

J'ai joint à mon message original une copie de la base de données.

Image Gravatar de Henri BorguetHenri Borguet ( 2019-09-26 15:36:53 +0100 )éditer

je regarde :-)

Image Gravatar de thierrythierry ( 2019-09-26 19:52:17 +0100 )éditer

je vais essayer de créer une base. D'après ce que je crois il s'agit d'insérer une ligne avec un hyper lien comme ici.mais je crois comprendre après recherche qu'i n'y a pas de champs html dans base

Image Gravatar de thierrythierry ( 2019-09-26 20:19:29 +0100 )éditer

une piste https://forum.openoffice.org/fr/forum... il faut créer une zone de texte où coller l'url

Image Gravatar de thierrythierry ( 2019-09-26 21:00:46 +0100 )éditer

La macro (très basic) suivante fonctionne parfaitement;

Il me faut maintenant récupérer l'adresse dans la base de données

SubstitutHperlien

 sub Substitut Hyperlien
    dim sv as object
    dim Adresse as string

      sv = createUnoService("com.sun.star.system.SystemShellExecute")

      adresse = "https://fr.wikipedia.org/wiki/The_Andrews_Sisters"

      sv.execute(Adresse, "",0)

    End Sub
Image Gravatar de Henri BorguetHenri Borguet ( 2019-09-26 23:06:02 +0100 )éditer

merci de cliquer et voter ;-)

Image Gravatar de thierrythierry ( 2019-09-27 00:46:39 +0100 )éditer

Outils de question

2 suiveurs

Stats

Posée: 2019-09-26 02:22:29 +0100

Consultée: 223 fois

Mise à jour: Sep 28 '19