[Résolu] [Calc] ouvrir plusieurs hyperliens

[zbooby]

Bonjour, je suis nouveau inscrit sur le forum, mais j'y navigue souvent pour trouver les outils dont j'ai besoin.
Le dernier en date est celui ci :
http://ooo-forums.apache.org/fr/forum/v ... 3&p=182809

Vous avez ajouté [Résolu] dans votre fil de discussion signifiant que votre question a été résolue et nous vous en remercions.
Cependant pour des questions de lisibilité et d'homogénéité, il est demandé de cocher la case de l'icône de sujet (le V vert). Notre forum est plus lisible avec ce balisage comme vous avez pu vous en rendre compte en le parcourant.
Cette opération se fait en même temps lorsque vous éditez votre 1er message.
Suivez ce sujet pour savoir comment procéder : https://forum.openoffice.org/fr/forum/ftopic3299.html
Merci de votre participation sur notre forum et de nous faciliter le travail de modération.

Cordialement, l'équipe de modération

Je cherche à créé une macro qui ouvre les différents hyperliens que j'ai dans ma fiche openoffice, du coup voici ma fonction :

Code : Tout sélectionner

Sub Actualisation
  Dim oFeuille As Object, oParcours As Object
  Dim oPlage As Object, oEnum As Object, oCell As Object
  
  oPlage = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges")
  oShell = createUnoService("com.sun.star.system.SystemShellExecute")
  oFeuille = ThisComponent.Sheets.getByName("Buy")
  oParcours = oFeuille.getCellRangeByName("M32:M32")

  oPlage.insertByName("", oParcours)
  oEnum = oPlage.Cells.CreateEnumeration

  While oEnum.hasMoreElements
    oCell = oEnum.NextElement    
    oShell.Execute("chrome.exe", oCell.String,"",0)
  Wend
 
End Sub

Le problème c'est qu'à chaque espace rencontré, on passe à l'enum suivant. Il me faudrait une sorte de "urlencode", ou une gestion des espaces.

Merci pour votre temps.

[Oukcha]

Bonjour et bienvenue sur le forum,

OpenOffice 3.3 sous Windows 7

Votre signature indique que vous disposez d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un choix, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Nous vous invitons à vous mettre à jour de la dernière version : https://forum.openoffice.org/fr/forum/v ... m.php?f=38.

Votre signature doit comporter :
1- La version exacte de AOO ou LibO (AOO 4.1.4 ou LibO 5.3.7 par exemple) ;
2- La version exacte du système d'exploitation (Windows 7 SP2, MacOS X 10.13.2, ou Linux OpenSuse Leap 42.3, par exemple).
Accès direct à votre signature pour la corriger.

Cordialement.

[Dude]

mais j'y navigue souvent pour trouver les outils dont j'ai besoin.

Dans ce cas, tu as dû voir qu'il fallait fournir un document afin qu'on gagne du temps.

Le problème c'est qu'à chaque espace rencontré

Explique moi comment tu peux avoir des espaces dans un hyperlien puisque ce caractère est interdit.

[zbooby]

Pour la version du logiciel, c'est juste que je ne l'ai jamais mis à jour jusqu'a maintenant, je le fais bientôt.

Mon lien je le construit de cette façon :
http://www.monsite.com/?q=<Value A1>
http://www.monsite.com/?q=<Value A2>

Mais du coup mes valeurs dans ma colonne A peuvent être composé de plusieurs mots et d'espaces du coup.
L'objectif serait d'avoir un urlencode(valeur A1), avant de l'envoyer dans l'url sinon. Mais en réalité, manuellement, mes liens fonctionnent déjà, même avec mes espaces.
Mes espaces sont traduits automatiquement dans mon navigateur par "%20".

Le problème dans la macro, c'est que les next enum coupe à chaque "%20".
http://www.monsite.com/?q=<Value A1>
On aura un onglet : "http://www.monsite.com/?q=<Value"
puis un onglet "A1>"

[Dude]

Bis repetitae :

Dans ce cas, tu as dû voir qu'il fallait fournir un document afin qu'on gagne du temps.

[Hubert Lambert]

Bonjour,

A priori,

Il me faudrait une sorte de "urlencode", ou une gestion des espaces.

équivaut à

Code : Tout sélectionner

monURL = convertToURL(monURL)

Cordialement.

[zbooby]

Y'aurait t-il à partir du classeur (pas dans la macro), une fonction qui permettrait de faire ceci :
La souris danse

Fonction :
la%20souris%20danse

formatter le texte directement sur le classeur ?

[Hubert Lambert]

Je ne connais pas, mais ça n'aurait pas beaucoup d'intérêt : si tu utilises la fonction LIEN.HYPERTEXTE(), le programme se charge d'encoder l'url; si tu utilises une macro, il y a la fonction donnée plus haut.

[zbooby]

Ok j'envoie un exemple concret

[Hubert Lambert]

Apparemment ça fonctionne.

[zbooby]

pour ma part j'ai 7 onglets pour une seule ligne traitée.
Bien évidemment on parle de cliquer sur le bouton Actu, pas cliqué manuellement sur le lien ?

[Hubert Lambert]

Alors trois petites choses :
1. apparemment, sous Windows, l'implémentation du service "SystemShellExecute" est un peu différente que sous Linux, et il faut encadrer soi-même l'url de guillements;
2. convertToURL n'encode apparemment que les url simples, pas les url complexes;
3. la méthode execute devrait dans ton code renvoyer une erreur, car le nombre de paramètres est incorrect, et j'ignore pourquoi le programme ne se plaint pas.

En conclusion, ceci devrait fonctionner :

Code : Tout sélectionner

    url = """" & oCell.String & """"
    oShell.Execute("chrome.exe", url, 0)

Cordialement.

[zbooby]

Ok parfait, ça marche niquel, merci beaucoup pour ta patience et ta résolution. je change mon title