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 lien hypertexte

lien hypertexte

3 réponses
Avatar
DENIS
bonjour,
j'ai une colonne dont les cellules sont le résultat d'une concaténation.
je souhaiterais récupérer la valeur de chaque cellule, et créer un lien
hypertexte dont l'adresse serait la valeur de cette cellule correspondant au
nom du fichier existant (.doc) situé dans un répertoire nommé.

merci par avance des solutions proposées.
Signaler un problème avec ce contenu

3 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
MorMic
Bonsoir Denis

Dans une routine, vous pourriez écrire le code suivant:

Repertoire = "C:repertoire"
NomFichier = Range("xx").Value 'xx = adresse de cellule
Hyperlinks.Add Anchor:=selection, Address := Repertoire & NomFichier &
".doc", TextToDisplay := NomFichier

Cela permet de lire dans la cellule xx le résultat de votre concaténation et
de le concaténer avec le répertoire de vos fichiers.doc, puis de créer le
lien hypertexte.

Cordialement

Michel

"DENIS" a écrit dans le message de news:

bonjour,
j'ai une colonne dont les cellules sont le résultat d'une concaténation.
je souhaiterais récupérer la valeur de chaque cellule, et créer un lien
hypertexte dont l'adresse serait la valeur de cette cellule correspondant
au

nom du fichier existant (.doc) situé dans un répertoire nommé.

merci par avance des solutions proposées.



Avatar
MorMic
Ajouter après la 2ème ligne: Range("xx").Select

"MorMic" a écrit dans le message de news:
45634b93$0$27369$
Bonsoir Denis

Dans une routine, vous pourriez écrire le code suivant:

Repertoire = "C:repertoire"
NomFichier = Range("xx").Value 'xx = adresse de cellule
Range("xx").Select

Hyperlinks.Add Anchor:=selection, Address := Repertoire & NomFichier &
".doc", TextToDisplay := NomFichier

Cela permet de lire dans la cellule xx le résultat de votre concaténation
et

de le concaténer avec le répertoire de vos fichiers.doc, puis de créer le
lien hypertexte.

Cordialement

Michel

"DENIS" a écrit dans le message de news:

bonjour,
j'ai une colonne dont les cellules sont le résultat d'une concaténation.
je souhaiterais récupérer la valeur de chaque cellule, et créer un lien
hypertexte dont l'adresse serait la valeur de cette cellule
correspondant


au
nom du fichier existant (.doc) situé dans un répertoire nommé.

merci par avance des solutions proposées.







Avatar
DENIS
ca marche merci bcp


Ajouter après la 2ème ligne: Range("xx").Select

"MorMic" a écrit dans le message de news:
45634b93$0$27369$
Bonsoir Denis

Dans une routine, vous pourriez écrire le code suivant:

Repertoire = "C:repertoire"
NomFichier = Range("xx").Value 'xx = adresse de cellule
Range("xx").Select

Hyperlinks.Add Anchor:=selection, Address := Repertoire & NomFichier &
".doc", TextToDisplay := NomFichier

Cela permet de lire dans la cellule xx le résultat de votre concaténation
et

de le concaténer avec le répertoire de vos fichiers.doc, puis de créer le
lien hypertexte.

Cordialement

Michel

"DENIS" a écrit dans le message de news:

bonjour,
j'ai une colonne dont les cellules sont le résultat d'une concaténation.
je souhaiterais récupérer la valeur de chaque cellule, et créer un lien
hypertexte dont l'adresse serait la valeur de cette cellule
correspondant


au
nom du fichier existant (.doc) situé dans un répertoire nommé.

merci par avance des solutions proposées.