Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Créer un lien hypertext par macro [OpenOffice][Tableur]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    août 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2004
    Messages : 18
    Points : 14
    Points
    14
    Par défaut Créer un lien hypertext par macro
    Bonjour à toutes et tous

    J'aimerais, par macro, mettre chaque cellule de la colonne B à partir de B10 en lien hypertext vers l'onglet correspondant

    Merci pour votre attention et votre aide, cordialement, Gérard
    Fichiers attachés Fichiers attachés

  2. #2
    Membre confirmé
    Homme Profil pro
    utilisateur
    Inscrit en
    janvier 2017
    Messages
    391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France

    Informations professionnelles :
    Activité : utilisateur
    Secteur : Service public

    Informations forums :
    Inscription : janvier 2017
    Messages : 391
    Points : 619
    Points
    619
    Par défaut
    Bonjour natorp,

    Si vous pouvez vous contenter d'une formule, celle ci est fonctionnelle
    en B10 de Tableau récapitulatif

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =LIEN.HYPERTEXTE("#'Gymnase Langevin'.A1";"Gymnase Langevin")
    ou celle-ci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =LIEN.HYPERTEXTE("#"&INDIRECT(ADRESSE(1;1;4;1;NOMFEUILLE(LIGNE()-8));1);NOMFEUILLE(LIGNE()-8))
    LibreOffice (fr_YT): 6.2.8.2 (20/10/2019)
    OS : Windows 10.0

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    août 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2004
    Messages : 18
    Points : 14
    Points
    14
    Par défaut
    Merci njhub

    Mais il me faut vraiment le code basic qui sera à intégrer au code général

    Cordialement, Gérard

  4. #4
    Membre confirmé
    Homme Profil pro
    utilisateur
    Inscrit en
    janvier 2017
    Messages
    391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France

    Informations professionnelles :
    Activité : utilisateur
    Secteur : Service public

    Informations forums :
    Inscription : janvier 2017
    Messages : 391
    Points : 619
    Points
    619
    Par défaut
    Bonjour natorp,

    Un code trouvé là:
    https://forum.openoffice.org/fr/foru...ertext%2A+calc

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub AllerFeuille()
    Dim oDoc As Object, lesFeuilles As Object
    Dim uneFeuille As Object, maCellule as Object
    	oDoc = ThisComponent
    	lesFeuilles = oDoc.Sheets
    	uneFeuille = oDoc.CurrentController.ActiveSheet
    	maCellule = uneFeuille.getCellRangeByName("A1")
    	Select Case maCellule.String
    		Case "feu1"
    			uneFeuille = lesFeuilles.getByName("Feuille1")
    		Case "feu2"
    			uneFeuille = lesFeuilles.getByName("Feuille2")
    		Case "feu3"
    			uneFeuille = lesFeuilles.getByName("Feuille3")
    	End Select	
    	oDoc.CurrentController.ActiveSheet = uneFeuille
    End Sub
    LibreOffice (fr_YT): 6.2.8.2 (20/10/2019)
    OS : Windows 10.0

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    août 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2004
    Messages : 18
    Points : 14
    Points
    14
    Par défaut
    Merci, je l'ai trouvé également, mais c'est plus complexe que ça :
    il s'agit de récupérer le contenu de la cellule à partir de B10 et créer, dans cette cellule, un lien vers la feuille correspondante
    dans le fichier d'exemple, je n'ai mis qu'une seule feuille, mais je vais en avoir une bonne trentaine et des lignes qui vont s'ajouter dans la feuille "tableau récapitulatif"

    Merci pour votre aide, cordialement, Gérard

  6. #6
    Membre à l'essai
    Profil pro
    Inscrit en
    août 2004
    Messages
    18
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2004
    Messages : 18
    Points : 14
    Points
    14
    Par défaut
    tout est là : https://forum.openoffice.org/fr/foru...hp?f=8&t=61435

    Merci à Hubert et Luky-luke

    Gérard

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PPT-2013] Comment créer des liens hypertexte avec une macro powerpoint
    Par papaplante dans le forum VBA PowerPoint
    Réponses: 0
    Dernier message: 28/04/2017, 16h13
  2. Macro pour créer un lien hypertexte vers une autre feuille
    Par cricri2803 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/08/2015, 15h22
  3. associer des liens hypertexte par macro
    Par bobafric dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 26/06/2013, 11h01
  4. Réponses: 6
    Dernier message: 19/02/2013, 22h44
  5. [FLASH 5] Comment créer un lien hypertexte
    Par ajit dans le forum Flash
    Réponses: 4
    Dernier message: 30/03/2006, 13h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo