Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Création automatique d'un hyperlien

Création automatique d'un hyperlien

4 réponses
Avatar
patrick
Bonjour,
j'ai le pb. suivant =E0 soumettre =E0 votre sagacit=E9 :
je voudrais cr=E9er un lien d'une cellule vers une feuille=20
de fa=E7on automatique, exemple :

celulle a1 contient ABC
celulle a2 contient xxx
je voudrais que b2 contienne une d=E9finition qui fait que=20
le lien se fera sur le fichier ABC.xxx.xls.

l'id=E9al serait une fonction "lien" que je pourrais=20
param=E9trer concat=E9nation $a$1 & "." & $a2 & ".xls"

ainsi si je cr=E9e a3 contenant yyy
la copie de b2 en b3 g=E9n=E8re automatiquement le lien vers=20
le fichier ABC.yyy.xls


merci d'avance de vos lumi=E8re
cdlt Patrick
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Joel
Bonsoir,

Je peux proposer la solution suivante (à transcrire dans le module privé de
la feuille concernée) :

à adapter bien sûr, notamment concernant le chemin où le fien hypertexte
doir aller chercher le fichier à ouvrir...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LeChemin As String
LeChemin = ActiveWorkbook.Path & ""
If Target.Column = 1 And Target.Row > 2 Then
Cells(Target.Row, 2).Value = Range("A1") & Target.Value & ".xls"

ActiveSheet.Hyperlinks.Add Anchor:Îlls(Target.Row, 2), Address:=LeChemin
& Cells(Target.Row, 2).Value, _
TextToDisplay:Îlls(Target.Row, 2).Value

End If
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"patrick" a écrit dans le message de
news:239e601c45ec4$bac721f0$
Bonjour,
j'ai le pb. suivant à soumettre à votre sagacité :
je voudrais créer un lien d'une cellule vers une feuille
de façon automatique, exemple :

celulle a1 contient ABC
celulle a2 contient xxx
je voudrais que b2 contienne une définition qui fait que
le lien se fera sur le fichier ABC.xxx.xls.

l'idéal serait une fonction "lien" que je pourrais
paramétrer concaténation $a$1 & "." & $a2 & ".xls"

ainsi si je crée a3 contenant yyy
la copie de b2 en b3 génère automatiquement le lien vers
le fichier ABC.yyy.xls


merci d'avance de vos lumière
cdlt Patrick
Avatar
ChrisV
Bonjour Patrick,

Avec par ex. (si le fichier ABC.xxx est stocké à la racine du disque)
en B2, à recopier vers le bas

=LIEN_HYPERTEXTE("C:"&A$1&"."&A2&".xls";"ABC.xxx")


ChrisV


"patrick" a écrit dans le message de
news:239e601c45ec4$bac721f0$
Bonjour,
j'ai le pb. suivant à soumettre à votre sagacité :
je voudrais créer un lien d'une cellule vers une feuille
de façon automatique, exemple :

celulle a1 contient ABC
celulle a2 contient xxx
je voudrais que b2 contienne une définition qui fait que
le lien se fera sur le fichier ABC.xxx.xls.

l'idéal serait une fonction "lien" que je pourrais
paramétrer concaténation $a$1 & "." & $a2 & ".xls"

ainsi si je crée a3 contenant yyy
la copie de b2 en b3 génère automatiquement le lien vers
le fichier ABC.yyy.xls


merci d'avance de vos lumière
cdlt Patrick
Avatar
Joel
Bonsoir, et merci !

C'est tellement plus beau comme ça LOL

Comme quoi, on en apprend tous les jours ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"ChrisV" a écrit dans le message de
news:
Bonjour Patrick,

Avec par ex. (si le fichier ABC.xxx est stocké à la racine du disque)
en B2, à recopier vers le bas

=LIEN_HYPERTEXTE("C:"&A$1&"."&A2&".xls";"ABC.xxx")


ChrisV


"patrick" a écrit dans le message de
news:239e601c45ec4$bac721f0$
Bonjour,
j'ai le pb. suivant à soumettre à votre sagacité :
je voudrais créer un lien d'une cellule vers une feuille
de façon automatique, exemple :

celulle a1 contient ABC
celulle a2 contient xxx
je voudrais que b2 contienne une définition qui fait que
le lien se fera sur le fichier ABC.xxx.xls.

l'idéal serait une fonction "lien" que je pourrais
paramétrer concaténation $a$1 & "." & $a2 & ".xls"

ainsi si je crée a3 contenant yyy
la copie de b2 en b3 génère automatiquement le lien vers
le fichier ABC.yyy.xls


merci d'avance de vos lumière
cdlt Patrick




Avatar
ChrisV
;-)

ChrisV


"Joel" a écrit dans le message de
news:cc1fh0$ia3$
Bonsoir, et merci !

C'est tellement plus beau comme ça LOL

Comme quoi, on en apprend tous les jours ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"ChrisV" a écrit dans le message de
news:
Bonjour Patrick,

Avec par ex. (si le fichier ABC.xxx est stocké à la racine du disque)
en B2, à recopier vers le bas

=LIEN_HYPERTEXTE("C:"&A$1&"."&A2&".xls";"ABC.xxx")


ChrisV


"patrick" a écrit dans le message de
news:239e601c45ec4$bac721f0$
Bonjour,
j'ai le pb. suivant à soumettre à votre sagacité :
je voudrais créer un lien d'une cellule vers une feuille
de façon automatique, exemple :

celulle a1 contient ABC
celulle a2 contient xxx
je voudrais que b2 contienne une définition qui fait que
le lien se fera sur le fichier ABC.xxx.xls.

l'idéal serait une fonction "lien" que je pourrais
paramétrer concaténation $a$1 & "." & $a2 & ".xls"

ainsi si je crée a3 contenant yyy
la copie de b2 en b3 génère automatiquement le lien vers
le fichier ABC.yyy.xls


merci d'avance de vos lumière
cdlt Patrick