Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Creation lien hypertext à la volée

10 réponses
Avatar
NGTB
Bonjour,

Je suis en train de peiner sur la création d'une macro batch qui
concatène la valeur de plusieurs cellules contigues. Jusque là pas de
problème.
La chaine finale obtenue est supposée être une URL internet. Je ne
connais pas le code qui me permettrait de caster la chaine à ce
format.
Quelqu'un pourrait-il me dépanner, je vous prie ?
Merci

10 réponses

Avatar
Daniel
Bonjour.
Regarde :
activeworkbook.FollowHyperlink Ta_Chaine
Cordialement.
Daniel
"NGTB" a écrit dans le message de news:

Bonjour,

Je suis en train de peiner sur la création d'une macro batch qui
concatène la valeur de plusieurs cellules contigues. Jusque là pas de
problème.
La chaine finale obtenue est supposée être une URL internet. Je ne
connais pas le code qui me permettrait de caster la chaine à ce
format.
Quelqu'un pourrait-il me dépanner, je vous prie ?
Merci


Avatar
NGTB
On Sun, 29 Jul 2007 17:35:43 +0200, "Daniel"
wrote:

(Je viens de lire que la réponse est attendue ici, Désolé pour mes
précédents posts....)

Merci, je vais tester cela de suite.

J-C

Bonjour.
Regarde :
activeworkbook.FollowHyperlink Ta_Chaine
Cordialement.
Daniel
"NGTB" a écrit dans le message de news:

Bonjour,

Je suis en train de peiner sur la création d'une macro batch qui
concatène la valeur de plusieurs cellules contigues. Jusque là pas de
problème.
La chaine finale obtenue est supposée être une URL internet. Je ne
connais pas le code qui me permettrait de caster la chaine à ce
format.
Quelqu'un pourrait-il me dépanner, je vous prie ?
Merci





Avatar
NGTB
On Sun, 29 Jul 2007 17:51:30 +0200, NGTB
wrote:

Après copier coller du code dans ma macro, j'ai constaté que
l'effet obtenu est une ouverture d'une fenêtre de mon navigateur sur
l'adresse indiquée. Je retiens l'idée pour une autre fois : ce n'est
pas en effet ce que je souhaite obtenir.

Supposons la valeurs respective des cellules suivantes :

A1 : " http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A5
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html". La page n'a pas a être
chargé dans un navigateur quelconque ; il s'agit de constituer un
catalogue d'environ 400-500 documents disponibles sur le net.

Merci de votre attention

J-C
Avatar
NGTB
Mea Culpa....

Depuis le temps que je n'ai pas aligné deux lignes de code, j'en ai
oublié les subtilités des collections d'objets (etc...) du VBA, ainsi
que ce qui peut constituer une méthode de recherche annexe (création
par l'exemple de nouvelle macro).

En passant par :
"ActiveSheet.Hyperlinks.Add Anchor:¬tiveCell.Offset(0, 6), Address: Adresse_Fichier, TextToDisplay:= Adresse_Fichier,
j'arrive à constituer le catalogue que je souhaite.
Merci de votre attention et mille excuses pour pour mon intervention
prématurée.

J-C
Avatar
JB
Bonsoir,

Il y a également la fonction LienHyperTexte() qui permet de générer
des hyperliens sans VBA:

http://boisgontierjacques.free.fr/fichiers/hyperlien/HyperLienSi.xls
http://boisgontierjacques.free.fr/fichiers/jb-OngletsHyperLiens.xls
http://boisgontierjacques.free.fr/fichiers/hyperlien/HyperLienOngletSuivant .xls
http://boisgontierjacques.free.fr/fichiers/hyperlien/SommaireDynamique.xls


JB
On 29 juil, 18:37, NGTB wrote:
Mea Culpa....

Depuis le temps que je n'ai pas aligné deux lignes de code, j'en ai
oublié les subtilités des collections d'objets (etc...) du VBA, ainsi
que ce qui peut constituer une méthode de recherche annexe (création
par l'exemple de nouvelle macro).

En passant par :
"ActiveSheet.Hyperlinks.Add Anchor:tiveCell.Offset(0, 6), Address: =
Adresse_Fichier, TextToDisplay:= Adresse_Fichier,
j'arrive à constituer le catalogue que je souhaite.
Merci de votre attention et mille excuses pour pour mon intervention
prématurée.

J-C


Avatar
NGTB
Bonsoir,
Tout à fait, mais les liens sont en fait la concaténation de sous
chaines dont le nombre et la teneur évolueront dans le temps en
fonction des infos que je pourrai remonter.

En consequence de quoi, la macro me semble plus économique en temps a
investir dans la generation de ces liens.

Merci de votre aide.



On Sun, 29 Jul 2007 11:36:28 -0700, JB
wrote:

Bonsoir,

Il y a également la fonction LienHyperTexte() qui permet de générer
des hyperliens sans VBA:

http://boisgontierjacques.free.fr/fichiers/hyperlien/HyperLienSi.xls
http://boisgontierjacques.free.fr/fichiers/jb-OngletsHyperLiens.xls
http://boisgontierjacques.free.fr/fichiers/hyperlien/HyperLienOngletSuivant.xls
http://boisgontierjacques.free.fr/fichiers/hyperlien/SommaireDynamique.xls


JB


Avatar
Clochard
SalutNGTB,

Sans vouloir m'imposer et ne sachant pas si j'ai le droit de répondre à ta
question...
Je me permet de te faire part de ce que j'ai trouvé en fonction de ce que
j'ai compris dans ta question qui était:
"Supposons la valeurs respective des cellules suivantes :
A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A4
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html".

Avec ça... chez-moi ça fonctione très bien

¡&SI(A1="";"";" "&A2&A3&4)

J'espère t'aider...
--
Clochard
Aimerais bien savoir....
Merci!



On Sun, 29 Jul 2007 17:51:30 +0200, NGTB
wrote:

Après copier coller du code dans ma macro, j'ai constaté que
l'effet obtenu est une ouverture d'une fenêtre de mon navigateur sur
l'adresse indiquée. Je retiens l'idée pour une autre fois : ce n'est
pas en effet ce que je souhaite obtenir.

Supposons la valeurs respective des cellules suivantes :

A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A5
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html". La page n'a pas a être
chargé dans un navigateur quelconque ; il s'agit de constituer un
catalogue d'environ 400-500 documents disponibles sur le net.

Merci de votre attention

J-C





Avatar
Philippe.R
Bonjour Clochard,
Bien sur que ta contribution est bienvenue ; ici, chacun est libre
d'apporter ses lumières.
C'est du partage que nait la richesse.
Amicalement
--
Philippe.R
"Clochard" a écrit dans le message de
news:
SalutNGTB,

Sans vouloir m'imposer et ne sachant pas si j'ai le droit de répondre à ta
question...
Je me permet de te faire part de ce que j'ai trouvé en fonction de ce que
j'ai compris dans ta question qui était:
"Supposons la valeurs respective des cellules suivantes :
A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A4
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html".

Avec ça... chez-moi ça fonctione très bien

¡&SI(A1="";"";" "&A2&A3&4)

J'espère t'aider...
--
Clochard
Aimerais bien savoir....
Merci!



On Sun, 29 Jul 2007 17:51:30 +0200, NGTB
wrote:

Après copier coller du code dans ma macro, j'ai constaté que
l'effet obtenu est une ouverture d'une fenêtre de mon navigateur sur
l'adresse indiquée. Je retiens l'idée pour une autre fois : ce n'est
pas en effet ce que je souhaite obtenir.

Supposons la valeurs respective des cellules suivantes :

A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A5
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html". La page n'a pas a être
chargé dans un navigateur quelconque ; il s'agit de constituer un
catalogue d'environ 400-500 documents disponibles sur le net.

Merci de votre attention

J-C







Avatar
Clochard
Salut... plutôt comme ça....

¡&SI(A1="";"";""&A2&A3&A4)


--
Clochard
Aimerais bien savoir....
Merci!



SalutNGTB,

Sans vouloir m'imposer et ne sachant pas si j'ai le droit de répondre à ta
question...
Je me permet de te faire part de ce que j'ai trouvé en fonction de ce que
j'ai compris dans ta question qui était:
"Supposons la valeurs respective des cellules suivantes :
A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A4
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html".

Avec ça... chez-moi ça fonctione très bien

¡&SI(A1="";"";" "&A2&A3&4)

J'espère t'aider...
--
Clochard
Aimerais bien savoir....
Merci!



On Sun, 29 Jul 2007 17:51:30 +0200, NGTB
wrote:

Après copier coller du code dans ma macro, j'ai constaté que
l'effet obtenu est une ouverture d'une fenêtre de mon navigateur sur
l'adresse indiquée. Je retiens l'idée pour une autre fois : ce n'est
pas en effet ce que je souhaite obtenir.

Supposons la valeurs respective des cellules suivantes :

A1 : " http://perso.orange.fr/&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/"
A2 : "cdjc/"
A3 : "kids/"
A4 : "index.html"

la cellule A5 dont la valeur est la concatenation des cellules A1:A5
(dans l'ordre) doit donc afficher
"http://perso.orange.fr/cdjc/kids/index.html&quot" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.orange.fr/cdjc/kids/index.html". La page n'a pas a être
chargé dans un navigateur quelconque ; il s'agit de constituer un
catalogue d'environ 400-500 documents disponibles sur le net.

Merci de votre attention

J-C







Avatar
NGTB
On Mon, 30 Jul 2007 04:04:02 -0700, Clochard
wrote:

Salut... plutôt comme ça....

¡&SI(A1="";"";""&A2&A3&A4)



La concaténation simple était la technique simple que j'avais retenue
à l'origine. Mais je n'obtenais pas ce que je désirais (un lien
hypertexte) mais une chaîne simple. Et ce n'est qu'en cliquant sur la
case qui la contenait que j'ai pu observer -parfois- le changement de
nature.
Je voulais obtenir ces liens dès leur construction et en même temps
apprendre comment les construire pour -éventuellement- réutiliser ce
qui m'a été indiqué.
D'où ma question ici